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Editors Jottings/News 


We have devoted all of this month's Postbag page 
to a letter from a reader which no doubt sums up 
the feelings of a good many subscribers following 
my editorial in Vol. 12 No.1 about the likelihood 
that BEEBUG will cease publication in April 1994, 
Further feedback and suggestions from readers 
will be most welcome, and we will no doubt return 
to the topic again in the future. 


However, what I really want to discuss is the 
question of upgrading to an Archimedes system. 
1 know full well that many BEEBUG readers аге 
quite satisfied and content with their existing 
system and see no reason to change, though they 
should bear in mind the future viability of a 
machine which will become more difficult to 
maintain as time goes by. 


Tf you haven't experienced the speed and memory 
capacity of an Archimedes, you might be quite 
impressed at what it has to offer. Many programs 
written for a BBC micro will run directly on an 
Archimedes, and often much more effectively as 
we know ourselves. Graphic animations are a 
prime example. This ability to run BBC micro 
programs applies to many of the programs 
published in BEEBUG. 


Ifa program will not run directly, then help is still 
at hand: Acorn supplies software with every 
Archimedes which enables it to emulate a BBC 
micro. This means that even machine code 
programs can be made to run, and it is perfectly 
feasible to use old favourites like View and 
Wordwise on an Archimedes. 


1 know from my own experience that while many 
users of the BBC micro initially view the different 
operating methods of the Archimedes with some 
disquiet, most of those who have upgraded rapidly 
become converted to the style of the Archimedes 
Desktop, and the use of the mouse to control 
much of what they do. 
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As readers will have seen from the leaflet enclosed 
with last month's issue of BEEBUG, we have put 
together a number of special offers on upgrading 
to an Archimedes system, and those offers are 
only available to BEEBUG readers. I would 
seriously urge readers to consider the pros and 
cons of upgrading, as these offers may not be 
available in the future. 


The whole question of upgrading, and of software 
and hardware compatibility, was covered at some 
length in a two-part article in BEEBUG Vol.8 
Nos.9 & 10. Much of what was said then still 
remains relevant, though the specific Archimedes 
models referred to may well have been superceded 
by later ones. 


If you have any questions or queries relating to 
upgrade paths, then please let us know. We will 
try to answer such letters individually, but they 
may also provide us with the basis for further 
articles on the same subject. If you want to see 
more of the Archimedes range then why not visit 
our St Albans showroom? 


ALL FORMATS COMPUTER FAIRS 
We give below the dates of forthcoming All Formats 
Computer Fairs for reference. 


25 Jul National Motorcycle Museum, 

West Midlands (NEC/M42 J6) 

11 Sept National Motorcycle Museum, 
West Midlands (NEC/M42 J6). 

12 Sept Corn Exchange, Church Street, 
Brighton. 

18Sept De Montford Hall, Granville St., 
Leicester. 


NEXT ISSUE 

Please note that the next issue of BEEBUG (for 
August/September) is due out mid August. 
M.W. 
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x Census (Part 1) 
Paul Goldsmith helps you poll your own. 


A social scientist friend asked me if my 
computer would analyse a questionnaire 
she wanted to use. I had not seen any 
software published for this purpose and 
I feel that there must be some demand 
for such, particularly for study purposes. 


HM 
Bank/8s 
House Ag 


Sample input - question 1 


The form of survey the program needed 
to deal with was such that a question has 
one or more pre-determined answers 
which can be selected or not selected 
(usually ‘yes’ or ‘no’). To maximize the 
number of records and questions a 
compact method of recording data had 
to be found that could cope with 
multiple answers. This problem was 
solved by using a series of bits, which 
can be set or not set, represented as an 
integer. The answers to the questions are 
set in reverse order by the formula in line 
2220 (and elsewhere) of Cen һе 
Number-2^(Total Number of Answers - 
Answer Set). Thus a positive answer 
number 3 of a 5 answer question gives a 
value of 4 (N%=24(5-3)) and a positive 
answer number 2 of a 5 answer question 
gives a value of 8 (№%=2^(5-2)). The two 
together make 12 and this is what is 
stored so each record consists of one 
number per question held as integers. 
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TRY IT YOURSELF 

Type in both the Create and Census 
programs as listed below. Line numbers 
must be strictly followed. At the end of 
both programs add the procedures in the 
‘Common’ procedures listing - some 
judicious SPOOLing and EXECing will 
save time here. Save as Create and Census 
respectively. 


RECORD но 


“Мз 


Sample input - question 2 


USING CREATE 

In order to use any of the Census suite of 
programs it is necessary to type in text 
which reproduces the questions and 
answers on the questionnaire form. The 
form of this text must follow the 
conventions listed below: 


CODE A four Character Code 
QUE A suffix (obligatory) 
Title The survey title 
NumberQ The number of questions 
Number A Тһе maximum number of 
answers (up to 17) 

The maximum number of 
records. 

Numberal The number of answers 
to question 1 

The text of question 1 
The texts of the 

answers to question 1 


Number R 


Text t1 
Техі61-а1 


Census 


The last 3 are repeated for each of the rest 
of the questions. For example, for a 
shopping survey the first few lines might 
be: 


SHOP 
QUE 

Shopping Survey 
8 


M 

200 

4 

What is the purpose of your visit? 
Shopping 

Cinema 

Theatre 

No response 


3 

What kind of shopping? 
Groceries 

Clothing Other 


And so on for the remainder of the 8 
questions. The items must be consecutive 
with a Return at the end of each entry, 
left justified with no more than 18 
characters per answer. They must be in 
straight ASCII with no formatting. This 
text, I call it the QUE text, must be saved 
as «code»qtx where «code» is the chosen 
four character code. 


Run Create, select option one, ‘Create 
files’, and enter the name of your qtx file. 
This will create files CODE, <code>PAR 
and <code>QUE. When asked to create a 
<code>DA file answer “Y”. When you 
quit the program you will get a ‘Not 
Found’ error - ignore this for the time 
being. If you have the magazine disc you 
will find SHOPqtx on it to try this out. 


USING CENSUS 

After using Create to create the necessary 
files you can run Census and enter the 
results of the survey. Records may be 
added in any order, within the limits of 
the maximum number set in Create. 


Only the ‘Insert’ option will operate this 
month and result will not be saved, but 
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this will give you chance to try things out 
and see how surveys are constructed via 
Create. It will enable a complete record to 
be entered starting with question 1. The 
screen invites the inputting of the 
number of a single answer, type the 
number of the answer and Return - a "Y^ 
will be placed next to that answer. 


If a multiple answer has been given press 
Return at the ‘Type number and Return’ 
prompt. The cursor will go down each 
question in turn; press 'Y' for positive 
answers, any other key for negative 
answers. The ‘Y’s are displayed opposite 
the respective questions, ‘Nos’ are left 
blank. If the entry is incorrect you will be 
given the option to change it when you 
get to the end of the page. When all 
questions have been entered the record is 
saved and the menu reappears. 


Always ‘Quit’ Census from the menu 
using option 7. This updates the file 
<code>PAR. Again you will get a ‘Not 
Found’ error on quitting, ignore this. 


AND NEXT MONTH 

Next month I will complete these 
programs and start to look at some of the 
analysis you can do. 


Create 


10 REM Program Create 

20 REM Version B 1.2 

30 REM Author Paul Goldsmith 

40 REM BEEBUG July 1993 

50 REM Program Subject to Copyright 


100 MODEl35:REM MODE 7 for ВВС B 
110 VDU26: CLS:CLEAR 

120 РВОСЕ (10, "С reat e") 

130 REM menu 

140 PROCwindowl 

150 PRINT' “Create files"TAB(33]"1* 
170 PRINT' "Quit "TAB (33) "3" 
180 VDU26:PROCwindow3 

190 PRINT*Press Number" :VDU26 

200 A-GET 

210 IF A=49 PROCreadtxt] : PROCcode :DIM 
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T$ (JS) NS (J$), A$(J$) , AS (J$, HB) :PROCread 
txt2:PROCquest : VDU? : PROCmessage 
220 IF A-49 IF suff$-"QUE* PROCdata 
230 IF A-50 PROCinst 
240 IF A-51 VDU26:CLS:CHAIN"SELECT* 
250 RUN 
260 : 
1000 DEF PROCdata 
1010 D$=CODE$+"DA" :TIME=0:REPEAT UNTIL 
‘TIME=500:CLS:PRINT*Create new *;D$;* Fil 
e ';:INPUT AS 
1020 IF INSTR(*Yy*,A$) PROCda 
1030 ENDPROC 
1040 : 
1050 DEF PROCda 
1060 CLS:PRINT"Creating a new ";D$;* fi 
le will* 'erwrite any existing 5+" 
file':INPUT"Proceed Y/N "А$:ІР INSTR(*Yy 
",А6) VDU7:C$-OPENOUTDS : EXT#CE=Rmaxt*J$* 
5:CLOSERCS:PROCCode ELSE ENDPROC 
1070 ENDPROC 
1080 END 
1090 : 
1100 DEF PROCinst 
1200 ENDPROC 
1210 : 
1220 DEF PROCmessage 
1230 CLS 
1240 PROCwindow2 
1250 PRINT*File *;G$;" Created" 
1260 PRINT*file ";CODES+*HED";" is also 
1270 PRINT*Required * 
1280 ENDPROC 
1290 : 
1300 DEF PROCreadtxtl 
1310 PROCt(8, "Read text") 
1320 PROCwindow2:INPUT"Name of text fil 
е *;Т$ 
1330 ONERROROFF:T&-OPENINTS:PROCefile(T 
$,7$) 
1340 PROCString:CODE$-str$ 
1350 PROCstring:suff$-str$ 
1360 PROCstring:Head$-str 
1370 PROCString:J&-VAL(str$) 
1380 PROCstring:H&-VAL(str$) 
1390 PROCstring:Rmaxt-VAL(str$) 
1400 ENDPROC 
1410 : 


1440 PROCstring:A%(Y%)=VAL(str$) 
1450 FOR Х%-0 TO АЗ(ҮЗ) 

1460 PROCString:A$ (V8, x8) =str$ 
1470 NEXT:NEXT 

1480 CLOSE#TS 

1490 ENDPROC 

1500: 

1510 DEF PROCstring 

1520 str$- 
1530 REPEAT 

1540 NB=BGET#TS 

1550 IF М%-13 GOTO 1570 

1560 str$=str$+CHRS (№) 

1570 UNTIL №=13 

1580 ENDPROC 

1590 : 

1720 DEF PROCquest 

1730 G$=CODES+suf £$:B=OPENOUTGS 

1740 PRINT#B, Head$,J%:FOR Х%-1 TO J$:PR 
INT#B, A% (X8) :FORY$=0 TO AB (X$) :PRINTÉB,A 
$(X8, Y$) :NEXT:NEXT 

1750 CLOSE#B:ENDPROC 

1760 : 

1770 DEF PROCcode 

1780 D&-OPENOUT"CODE" : PRINTÉD&, CODES, J% 
„НЗ, Rnax$ :CLOSE#D$ 

1790 PS$=CODE$+*PAR" :D$=OPENOUTP$ :N$-0 : 
PRINT#DE, №, №, №, №, Rmax$ : CLOSERDS 

1800 ENDPROC 

1810 : 

1820 DEF PROCefile(i&,I$) 

1830 IF i$-0 PRINTTAB(3,19) "File ‘+I$+" 
mot found" :CLOSE#i8:TIME=0 :REPEATUNTIL 
‘TIME=200 : CHAIN*CREATE* 

1840 ENDPROC 


Census 


10 REM Program Census 
20 REM Version B 4.2 
30 REM Author Paul Golósmith 
40 REM BEEBUG July 1993 
50 REM Program Subject to Copyright 
60 : 
100 ONERRORPROCerr 
110 CLEAR: PROCcode 
120 MODEI35:DIM NS (Hi), TS (H$) , N$ (HE) A 
$ (3) ,AS (J$, HE) :VDU 15:Rep$-"":Repl$-"*: 
Miss$="*:K8=17:REM MODE 7 for ВВС B 
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1420 DEF PROCreadtxt2 130 Start$-0:Nunb$-0:End$-0:Top$-0 
1430 FORY$-l TO J% 140 PROCgetparam:PROCquest 
7 


Census 


150 REM ******* M E N U те 

160 INSERT-FALSE 

170 VDU26, 15:CLS:PROCt (12, "M E N U*) 

190 PRINTTAB(5, 6) "INSERT 25 

240 PRINTTAB(5, 16) *QUIT [7° 

250 PRINTTAB(2, 19) ; :VDU129 : PRINT; Rep$ : 
Rep$="" :PRINTTAB(23, 4) ; : VDU130: PRINT*COD 
E ";Code$ 

260 PRINTTAB(29, 19) ; :VDU131:PRINT"Star 
t ";Start$:PRINTTAB(29, 20) ; :VDU131: PRIN 
тегі *;End$ : PRINTTAB (29,21) ; : VDU131: 
PRINT*Number *;Numb% 

270 *FX 15,1 

280 PRINTTAB(4,21) ; :VDU131:PRINT* PRESS 
NUMBER ":A-GET:IF А<49 OR A555 VDU7:GOT 
0280 

290 IN-FALSE:AM-FALSE 

310 IF A-50 PROCinsert 

360 IF A-55 PROCsaveparam:CHAIN"SELECT 

370 GOTO 150 

380 END 

390 : 

1000 DEF PROCenquire:HD$-"Enquire':*FX2 


1080 DEF PROCe 

1090 PROCscreen:N&=N%(T%) : PROCdisplay:P 
ROCins : PROCchange: PROCe 

1100 ENDPROC 

110: 

1120 DEF PROCchange 

1240 ENDPROC 

1250 : 

1260 DEF PROCinst 

1360 ENDPROC 

1370 : 

1380 DEF PROCinsert 

1390 HD$-"Insert" 

1400 CLS:INPUTTAB(0,10) "WHICH RECORD *; 
R8:IF ЕФ RB=1 

1410 IF R>Rmax$ GOTO 1400 

1420 C%=OPENUPDS : PROCef ile (Ct, 05) 

1430 РТКЁСФ-5* (R&-1) *Q& 

1440 BS=BGETHC$: PTRECE=PTREC$-1:1F Bi-k 
40 Rep$="Record "4STRS(R$)e* already exi 
Sts":VDU 7:CLOSERCS:ENDPROC ELSE CLOSEšC 
% 

1450 FOR Т%-1 TO 0% 

1460 CLS:PROCsCreen 


| 


1470 PROCsingle: *FX202,32 
1480 PRINTTAB(5, 22) ;SPC(25) : INPUTTAB(5, 
22)*0.K.? Y/N Press RETURN "Q$:IF LEN 0$ 
>1 GOTOl480 
1490 IF Q$c»*Y* GOTO 1460 

1500 IF 05-“Ү" N&(T&)-NÉ:NEXT:PROCSaver 
ec:Numb’=Numb8+1: PROCparam: Rep$- "Record 
No *+5ТВ$(В%)+" Inserted" 

1510 ENDPROC 
1520 : 

1530 DEF PROCins 
1550 ENDPROC 
1560 : 

1570 DEF PROCdisplay 
1580 N1$-2^A$(T$) /2 

1590 FOR Х%-1Т04%(7%) 

1600 IF М%>-Ң1% PRINTTAB(35,X%+3) "Y" :N& 
=N%-N1%:ELSE PRINTTAB(35,X%+3)" ":GOTO 1 
610 
1610 N1$=N18/2 
1620 NEXT 
1630 ENDPROC 
1640 : 

1650 DEF PROCscreen 
1660 CLS:PRINTTAB(1, 1) "Q"; 
0) ;TAB(34, 3) "Y/N" 

1670 FOR Х%=1ТОА% (T$) 

1680 PRINTTAB(0, 3+X8)A$ (T&, X&) TAB(30, 3+ 
х%)х% 

1690 NEXT 
1700 PRINTTAB(0,0)"RECORD NO *;R¥TAB(20 
)HDS 
1710 ENDPROC 
1720 : 

1730 DEF PROCsaverec 
1840 ENDPROC 
1850 : 

1860 DEF PROCgetrec 
1870 *FX200,1 
1880 LOCAL T$ 
1890 C&-OPENINDS:PROCefile(C$,D$) 

1900 N8=0:FORTS=1T0H8:N8 (T$) -0: NEXT 
1910 IF 5*R$*Q%>EXT#C$:Rep$="Beyond end 
of file*:CLOSE#C$ :ENDPROC 
1920 PTR#C8=5* (ЕФ-1) * (0%) 

1930 FOR X$-0 TO 0%-1 
1940 N&-BGETéCS:PTRÉCS-PTRÉCA-1:1F NR 


i" ЗАТ, 


1950 INPUTECE, 18:8 (X8+1) -TS 
1960 NEXT 
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1970 CLOSE#CS 

1980 *FX200,0 

1990 ENDPROC 

2000 : 

2010 DEF PROCgetparam 

2020 C8=OPENINPS : PROCefile (C$, P$) 

2030 INPUT&CS, Start: INPUTEC8, пдф: INPU 
TÉCS, Numb : INPUTËCS, Top% : INPUT&CS, Rmax& 
2040 CLOSERCS 

2050 ENDPROC 

2060 : 

2070 DEF PROCcode 

2080 С%-ОРЕМІМ"СОПЕ" : PROCefile(C%, "CODE 
Ay 

2090 INPUT&CS,FS, J$, H$, Rmax& 


2110 ENDPROC 

2120 : 

2130 DEF PROCquest 

2140 B-OPENIN G$:PROCefile(B,G$) 

2150 INPUTÉB,HeadS,Q$:FOR Х%=1 TO Q:IN 
РІЛЯВ,7%:А%(Х%) =Т%:РОВҮ%=0 TO A%(X%) : INP 
UTHB, AS (X$, Y&) : NEXT :NEXT- 

2160 CLOSE#B:ENDPROC 

2170 : 

2180 DEF PROCsingle 

2190 PRINTTAB(5,22) ;SPC(30) 

2200 INPUTTAB(5,23)"Type number and RET 
URN "N$:IF VALNS=0 VDU]:PROCmulti :ENDPRO 


c 

2210 N1$-VALNS:IF N1$>A%(T$) VDU7:GOTO 
2200 

2220 N$-2^(A$ (T) -N1$) :NR$-N$ : PROCdispl 
ay:NS-NR$:N$ (7%) -N$ 

2230 ENDPROC 

2240 : 

2250 DEF PROCmulti 

2260 PRINTTAB(5, 23) ;SPC (30) ;ТАВ(5,23) *U 
ЗЕ 'Ү' OR 'N' KEYS" 

2270 N$-0 

2280 FORX$-lTOAR (7) 

2290 PRINTTAB(35, X643) ; :A-GET 

2300 IF А-89 N$(X$)-"1*:PRINT"Y*:Ni-NÉ« 
27(А%(Т%)-Х%) 

2310 IF А-78 N$(X&)-*0* :PRINT* * 


2370 CLS:INPUTTAB(10,10) "Which Question 


2400 DEF PROCamend 

2470 ENDPROC 

2480 : 

2490 DEF PROCa 

2500 PROCscreen:N$-N$ (T$) : PROCdisplay:P 
ROCins:PROCchange:NÉ-NÉ(T&):IF A=65 AND 
AM-TRUE PROCsaverec:PROCa 

2510 ENDPROC 

2520 : 

2530 DEF PROCmove 

2620 ENDPROC 

2630 : 

2640 DEF PROCdelete 

2700 ENDPROC 

2710 : 

2720 DEF PROCshift 

2730 PROCSelrec:R$-RFÉ:PROCgetrec 

2740 IF Nt-0 Rep$-'Record *+STRS(R8)+" 
does not exist" :ENDPROC 

2750 R¥=RS%: PROCsaverec:Numb@=Numb@+1: I 
Е Бері5<>"" Rep$=Rep1$:VDU7 : ENDPROC 
2760 R&-RF$:Miss$-*":PROCdelete 

2770 ENDPROC 

2780 : 

2790 DEF PROCselrec 

2800 PRINTTAB(3,17)"MOVE RECORD NO *;ТА 
B(20)*TO *:INPUTTAB(18, 17) ;RF: INPUTTAB( 
25,17);RSt:IF ВР%=0 OR RS%=0 OR КЕФ>Клах 
$ OR RSi»Rmaxt СОТО 2800 

2810 Skip-FALSE 

2820 ENDPROC 

2830 : 

2840 DEF PROCin 

2850 CLS:PROCscreen 

2860 PROCsingle 

2870 PRINTTAB(5, 22) ;SPC(25) : INPUTTAB(5, 
22)*0.K.? Y/N Press RETURN "QS:IF LEN Q$ 
»1 GOTO 2870 

2880 IF Q$-"Y* N&(T$)-N&:PROCsaverec:Re 
pS="Record No *+STR$(R$)+" Amended" 
2890 ENDPROC 

2900 : 


2320 N% (T$) =N% 2910 DEF PROCparam 

2330 NEXT 2920 IF R%<Start% Start&-R$ 

2340 ENDPROC 2930 IF R&-End$ Еп4%-8% 

2350 : 2940 ENDPROC 

2360 DEF PROCchoose t don page 18 
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Word Square Solver 


Kate Crennell helps solve your remaining word squares. 


The BEEBUG Tenth Anniversary 
Competition (BEEBUG Vol.11 No.3 page 
61) prompted me to look for an old 
program I wrote to solve any word 
square. I have modified it to work with 
that specific puzzle. It can also work 
alongside the word search generator first 
published in BEEBUG Vol.11 No.7, and 
updated in BEEBUG Vol.11 № .10. 


Finding ‘Compact’ 


Type in the listing and save it as 
WordSq2. Typing CHAIN” WORDSQ2” 
will show you a mode 1 screen and a 
prompt asking for the next name to look 
for. Type the letters of the word in upper 
case, because I have entered the word 
square in upper case. If the word is 
found, the whole square will be printed 
out in red, with the word highlighted in 
white. The program then continues to 
look for another occurrence of the word. 
The number of occurrences found is 
printed after the last one found. Words 
with few letters may occur several times. 
For example the words DFS, RAM, ROM 
all occur several times. To complete the 
puzzle, enter the words one at a time, 
and draw the word it finds on your 
copy. Note, the extra challenge word 
was ‘COMPACT’. To stop the program 
press the Return key without entering 
any letters. 
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HOW THE WORD SQUARE IS 
STORED 

The number of rows, NR%, and 
columns, NC%, of the square are read 
from the DATA statement in line 1420. 
They are used to dimension the array 
which holds the letters of the square. To 
use data for a different puzzle, change 
the DATA statement to fit the new 
puzzle, and then edit the lines 1440 to 
1590 which hold the word square. There 
is no need for the puzzle toes square, 


NR% and NC% are separate variables. I 
always use upper case letters, but you 
can use lower case if you prefer. The 
rogram searches for strings which can 
e any characters, numbers, letters or 
punctuation marks. 


More solutions, pr 


Finding ®ОМ' 


HOW IT WORKS 

The main program sets up the data for 
the word square and then asks for the 
word to look for. PROCFIND looks for 
the word, and PROCSHOW prints it out. 
PROCFIND begins by storing the first 
and second letters of the word in F$ and 
S$. Then it searches along the rows 
looking for F$. When F$ is found, the 
row and column numbers are stored, and 
the procedure then looks all around the 
F$ for 5$; if it is found, the row and 
column numbers are stored. The 
program then looks for the rest of the 
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Word Square Solver 


word using the positions of F$ and S$ to 
decide the direction in which to search. 


In my first version of the program 
PROCSHOW made up a line of the 
square at a time, inserting the necessary 
colour changes. This is rather 
cumbersome, but has the advantage that 
it would work equally well on a printer 
with paper which moves only in one 
direction. In the version given here, the 
whole square is printed in red, and then 
the word found overprinted in white 
using TAB. This both runs more quickly 
and is easier to understand. 


10 REM Program WordSq2 

20 REM Version B 1.0 

30 REM Author K.M.Crennell 

40 REM BBEBUG June 1993 

50 REM Program Subject to Copyright 
60: 


100 REM NC$-NO OF COLUMNS IN PUZZLE, N 
RÉ-NO OF ROWS. 

110 READ NC&,NRÉ 

120 DIM AS(NR$) 

130 FOR I&-lTONRS:READ A$(I$):NEXT 

140 MODE 1 

150 REPEAT:INPUT'"Enter NAME to find * 
BS 
160 IF BS<>"*PROCEind 

170 UNTIL B$="" 

180 END 

190 : 

1000 DEF PROCfind:REM find В5 in Wordsq 
uare A$ 

1010 NS&-0:L&-LEN(B$):IF L%>NC% AND Là» 
NR ENDPROC 

1020 FS-LEFTS (BS, 1) :5$=М10$ (B$,2, 1) 
1030 REM find first letter (F$) 

1040 FOR I$=1TONR$:J%=0 

1050 REPEAT:NÉ-INSTR(MIDS (A$ (1$) ,J$41) , 
FS) 

1060 ТРМ%>0 J$=J%+N%:PROCsecond 

1070 UNTILNS=0 

1080 NEXT: PRINT;NS8* solution(s) for *; 
BS! 

1090 ENDPROC 

1100 : 

1110 DEF PROCsecond:REM find second let 
ter (S$) around first letter F$ 

1120 A$-1$-1:Bé-I$»1:IFA$«l 2%-1 ELSEIF 
Bi2NR& BS=NRE 

1130 C$-J$-1:D$-J$«1:IFC$«l С%-1 ELSEIF 
D8>NC$ D&-NCS 


1140 FOR K$-ATOBÉ 

1150 FOR М%-С%700% 

1160 IF K&-I& AND M&-J$ ELSEIF MID$(AS( 
K3),M$,1)-5$ PROCrest 

1170 NEXTME, КФ 

1180 ENDPROC 

1190 : 

1200 DEF PROCrest:REM check rest of B$ 
1210 X&-K3-I9:YS-ME-J$:U$-KS: V$-ME 
1220 IF 14-2 PROCshow:ENDPROC 

1230 FOR P$-3TO L$ 

1240 UB=UB+X8:VB=VE+YS 

1250 IF 0%<1 OR U$2NR$ OR V$«l OR V$>NC 
$ ENDPROC 

1260 IF MIDS(AS(US),Vé,1) <> MID$(B$, P% 
,1) ENDPROC 

1270 NEXT:PROCShow 

1280 ENDPROC 

1290 : 

1300 DEF PROCshow:REM print solution 
1310 IFNS%>0 PRINT"More solutions, pres 
s key to continue" :6%=СЕТ 

1320 CLS:PRINT:NS$-NSi«1:COLOURL:REM pr 
int square in red 

1330 FORP-lTONR&:PRINT" "AS(PÉ):NEXT 
1340 U$-I$:V$-J$:COLOUR3 :REM overprint 
found word in white 

1350 FOR PÉ-lTOLS:PRINTTAB(V$,US)MIDS (B 
5,Р%,1) 

1360 U%=U%+X%:V%=V%+Y% 

1370 NEXT:PRINTTAB(0, NR&«1) 

1380 ENDPROC 

1390 : 

1400 REM dimensions of word square 
1410 REM number of columns, number of r 


‘ows 
1420 DATA20, 16 
1430 REM This is the word square follow 
ing 

1440 DATASPITDNASTNIHDFWBLBIN 

1450 DATAQEAFLCTJLAASSEMBLERO 

1460 DATAPDCMAGSCANWSMMOCMFEE 

1470 DATADUOOUEAAPOBOCCOMAAEC 

1480 DATAFCRONIGUNMANRMEIRRSC 

1490 DATAIANAADFDJNSNPLOCGREH 

1500 DATARTREMWPPIOIAPYDROSTG 

1510 DATASIEAEOIRNRCVXUAORNJN 

1520 DATATOTTCRRAOTBEEPATPKEI 

1530 DATACNSENDIGGCUMARTEDCRT 

1540 DATAOFATEWGUBEEBARSDAIGN 

1550 DATAUGMARIKFILESECAABTOI 

1560 DATARAHDESOVIEWHSSYURSPR 

1570 DATASMISFERTGABTSOPOMYDP 

1580 DATAESIDESEINTERWORDIOAR 

1590 DATACDRTROPEUGOLANAFRJBE 
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BEEBUG Education 
by Mark Sealey 


The day to day activities of the BBC 
micros rely on a special brand of 
technical competence which BEEBUG 
magazine has sustained and sponsored 
for over ten years. 


It is somehow gratifying to note that this 
same world has also repeatedly attracted 
the attention of the academics - decidedly 
not from this ‘hobbyist’ point of view but 
because of one specific set of uses to 
which it has been put: in schools and 
colleges. The views of these 'experts' - as 
BEEBUG Magazine itself prepares to 
wind down and indeed the last 8-bit 
machine has ceased to be manufactured 
by Acorn - make a very important 
contribution to any assessment of the 
future of computers in schools. 


So this month and in October BEEBUG 
Education looks at two recently 
published reports on the many uses for 
microcomputers in education. One reads 
them with mixed feelings. Knowing the 
strengths of our machines as we do, it is 
comforting that they are holding their 
place so well after this period of time. 


This ought to be due to a vigorous and 
original IT environment whose provision 
fully exploits the technical distinction of 
the platform and be evident everywhere 
throughout the education system. 
Patently, it is not. Both reports make it 
clear that uptake and application still 
reflect only very dimly what is possible 
and - most seriously - what has been 
possible throughout almost the entire 
lifetime of BEEBUG. 

In some ways we have not come as far as 
we should in that time; indeed the more 
theoretical of the two reports (reserved 
for examination next time) is in no doubt 
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that IT (and hence the machines we use 
and which are covered by this column) 
“(has made)... а contribution to learning, 
but the contribution... (15)... not 
consistent across subjects or age bands” 


The reports are published by the 
Department for Education and Kings’ 
College London. 


The more purely factual Survey of 
Information Technology іп Schools 
summarises the results of a survey carried 
out over a year ago on a representative 
sample of nearly 900 primary and 550 
secondary schools. It looks at hardware 
provision, access to and expenditure on 
equipment as well as the uses to which it 
is put, staff confidence, sources of 
information and advice. Finally the 
results of this survey are compared with 
those of previous years. 


The most striking aspect - to BBC users - 
is how well our machine has held its 
share of the market: between them the 
model B and Master account for 53% of 
micros in primaries and 35% in 
secondaries. There is an estimated 
132,500 micros in all schools compared 
with a third as many ten years ago. 


The next biggest share in primaries (18%) 
goes to the Acorn 32-bit models; these 
are only 6% behind the second placed 
model in secondaries, too. Overall, 
nearly three quarters of equipment in 
primaries and over half in secondaries is 
still Acorn equipment. A healthy 
situation. 


MAINTENANCE AND 
FINANCING 

The most common maintenance 
arrangement is still one where the LEA 


Beebug July 1993 


BEEBUG Education 


(Local Education Authority) carries out 
the work and charges the school at cost, 
although a quarter of secondary schools 
have no formal arrangements; unless this 
conceals an imaginative resourcefulness 
on the part of technicians working late 
into the. night, such a position is a little 
worrying! 


Equally disturbing for anyone convinced 
of the benefits of IT in education is the 
abysmal sum spent on IT overall per 
pupil: little more than £13 (primaries) 
and £20 (secondaries) per annum... you 
cannot buy a subscription to BEEBUG for 
that. 


Surely we should value our children’s 
access to computers more. More 
unsatisfactory still is the fact that, 
although nearly all pupils are shown in 
this survey as having regular access to 
micros, the average (inter-quartile) range 
of pupil to micro provision in primaries 
is at its best 18:1, usually closer to 25 ог 
30:1 and at its worst 115:1. In secondaries 
the ratio is never better than 12:1. 
Imagine how well you would have learnt 
if you had had to share your beloved 
machine with 19 other people! 


Looking at funding a little more closely 
shows that in both primary and 
secondary schools, half of all IT is 
provided by the allowance paid directly 
to them by the LEA but that in primaries 
over a quarter of all equipment has come 
from voluntary sources (Parent Teacher 
Associations) etc. It is unlikely that this 
state of affairs will improve as LEAs’ 
roles diminish and schools аге 
increasingly underfunded as a result. 


USES 

Perhaps more important than any of this 
is how well micros are used to enable 
pupils to progress educationally. It is 
convenient here to make a distinction 
between primary and secondary schools. 
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In primaries the picture is as one would 
expect: all schools use (or claim to be 
using) their machines for English and 
maths, three quarters for science, art and 
technology, and very roughly half for 
history and geography. 


Although the BBC micro is particularly 
well blessed with packages to handle 
musical output and has been from the 
very earliest days, fewer than 40% of 
primary schools are apparently using it 
to do so; perhaps this is because music is 
regarded as a specialist subject for infants 
and juniors with few teachers feeling 
confident enough to teach it. 


Some 4% of primaries replying to the 
survey claimed to be using their 
computers in physical education (PE). It 
would be intriguing to know how; we 
could all learn something. 


By far the most common use of 
computers in primaries is word 
processing. This is a little worrying, too, 
since separate evidence shows that 
many pupils are still encouraged to use 
the printing facilities of the computer as 
little more than а glorified typewriter. 
Think of the richness of software 
available to aid composition and trial 
and improvement - rather than fair 
copy - at the keyboard. You can only 
conclude that it is probably still the case 
that the facilities for redrafting of the 
system are still being woefully 
underused. 


The next most common application to 
which computers are put is games and 
puzzles. Again, think of the quality of 
some of these - and the plethora of 
unchallenging and ill thought-out dross 
that has existed from the beginning. The 
standard improved slightly as the 
developers came to know what 
wonders the 8-bit machines were 
capable of. 
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But at the same time, this survey also 
reveals that roughly a quarter of all 
hardware is over five years old. The same 
might well apply to software that at the 
time was doing its job adequately - 
particularly since over a third of all staff 
admitted to no other awareness of IT 
than through their initial training. 


The other side of this somewhat 
tarnished coin is that well under an 
average of 10% of pupils regularly put 
their equipment to control or 
measurement uses - in either educational 
phase. Set this against the outstanding 
and pioneering facilities for interfacing 
with the real world supported by nearly 
half the micros in schools, 8-bit BBCs 
with a built in user port! 


SECONDARIES 

In secondaries, a pleasingly high 
proportion of staff are regularly using IT 
in support of most areas of the 
curriculum including special needs, 
classics, PE and administration; 
predictably, secondaries make much 
heavier use of on-line sources than 
primaries, Prestel and Campus 2000, 
NCET and the now shamefully defunct 
NERIS being the most used. Surprisingly, 
perhaps, only the staff from secondary 
business and computer studies 
departments rated themselves anywhere 
near as confident in usingcom puters 
with children as the 72% of all primary 
teachers. Modesty, or genuine 
unpreparedness? 


Data handling by secondary teachers is 
spread out healthily across the age range, 
and about a third of all secondary 
teachers claim to use a micro at least 
twice a week in their teaching - even a 
fifth of all drama, but only the same 
proportion of modern language teachers. 


Again, there are some surprises in the 
underuse suffered by pupils of secondary 
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age: only an average of 4% of IT use was 
devoted to musical composition and not 
much more to simulations - surely two of 
the activities at which computers are 
best. The survey suggests that secondary 
age pupils spend about 8% of their lesson 
time using IT; it is hard to reconcile this 
with other statistics from the survey 
already commented upon. 


CONCLUSIONS 

The DfE Survey draws few overall 
conclusions of its own; but among them 
is one that over six out of every ten 
teachers regularly use micros in their 
teaching; extrapolating carefully from 
this statistic, it can be very roughly 
estimated, then, that 100,000 teachers 
have used or are using a BBC 8-bit micro! 
A third (compared with a fifth five years 
previously) of primaries reported that IT 
has made a “substantial contribution to 
teaching and learning”. 


Clearly, the picture is uneven to say the 
least. Opportunities are being missed, 
and there are several facts that do not 
bode well for the future. It has to be 
admitted that there is still no consensus 
on what sort of contribution IT can and 
should make to formal education, and 
how great that contribution is. 


One recent attempt to define these, and 
what implications any such definition 
holds for future educational use of the 
Acorn family of micros will be examined 
in greater depth next time when 
attention turns to the Kings’ College 
report. 


Statistical Bulletin 6/93, Survey of 
Information Technology in Schools. February 
1993, ISSN 0142-5013 - foc. 


Department for Education, Analytical 
Services Branch Room 338, Mowden Hall 
Staindrop Road, Darlington Co. Durham 
DL3 9BG tel: 0325 392683. B 
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Enhancing Basic's LISTO command 


Make program listings crystal clear with Stephen Ramplin's 
LISTO enhancement. 


The layout of a program as listed can be 
controlled by the LISTO command. 
Spaces may be inserted for the duration 
of all FOR-NEXT and REPEAT-UNTIL 
loops and immediately after the line 


LISTO % followed Бу a binary number, 
for example LISTO 9511001. Here bits 
four, three and zero are set. Therefore, 
spaces would be inserted after the line 
numbers, paging mode would be on and 


number. 


line splitting would occur. 


The utility presented here 
enhances the LISTO feature built 
into Basic. It provides automatic 
selection of a specified screen 
mode, printer and paging modes 
and line splitting of multiple 
statement lines at the colons. 


1000DEF PROCEind:REM find BS in Wordsquare A$ 
1010NS&-0:L&-LEN(B$):IF L»NC& AND L%>NR% ENDPROC 
1020F$=LEFTS (B$, 1) :S$=MIDS (BS, 2, 1) 

1030REM find first letter (F$) 

1040FOR I%=1TONR%:J%=0 
1050REPEAT:N&-INSTR(MIDS (A$ (1%) ,J%+1) , F$) 
1060IFN$0 J$-J&«N$:PROCsecond 


1070UNTILNE=0 

Enter the program as listed below. | 1080NEXT:PRINT;NS$* solution(s) for ";B$' 
After checking for errors, save it | 1090ENDPR0C 

and then run it. The resulting | 1100: 

code is saved to disc under the 

filename Utility. To use it in the Standard listing 


future, enter *RUN Utility and it 
will be loaded and run. 


The various features provided are 
selected by setting the appropriate bits of 
the LISTO flag. The table below shows 
which options are activated when a 
particular bit is set. 


Bit Option selected when bit set 


0 Insert spaces after the line number 
Insert spaces during FOR-NEXT 
Insert spaces during REPEAT-UNTIL 


Paging Mode active 

Line splitting active 

Printer active 

Automatic mode selection active 


You can use LISTO followed by a denary 
number; LISTO 49 would give you 
spaces after the line number, line 
splitting and the printer (1+16+32). For 
less mental arithmetic use the command 
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To specify which screen mode is used you 
can enter the command LISTO MODE 
followed by the mode number which 
must be in the range 0 to 7. TOP is 
checked by the utility to make sure that 
selecting that mode doesn’t wipe off the 
end of your program. The default is mode 
7. To switch off automatic mode selection 
clear bit 6 of the LISTO flag, e.g. LISTO 0. 


Using this utility, you can have long 
program lines, saving memory, and still 
have clear readable listings. To use a 
cliche, you'll wonder how you ever 
managed without it! 


HOW IT WORKS 

The program implements the LISTO % 
and LISTO MODE commands by intercept- 
ing the BRK vector. A character-entering- 
buffer event is also enabled and the input 
buffer checked for the LIST command 
every time the return key is pressed. 
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1000 DEF PROCEind 
REM find B$ in Wordsquare A$ 
1010 NS$=0 
L&-LEN(BS) 
IF L&»NC& AND L$>NR$ ENDPROC 
1020 F$=LEFTS (B$, 1) 
SS-MIDS (B$,2,1) 
1030 REM find first letter (F$) 
1040 FOR I$-]TONR$ 
43-0 
1050 REPEAT 
N&-INSTR(MIDS (A5 (1$) ,J&«1) , F$) 
1060 TFN%>0 J$-Ji«N$ 
PROCSecond 
1070 UNTILN®=0 
1080 NEXT 
PRINT;NS$* solution(s) for *;В$' 
1090 ENDPROC 
1100 


Listing after using enhanced LISTO 


When the LIST command is detected the 
LISTO flag is examined. If the 
appropriate bits are set, the screen mode 
is changed, paging mode is activated and 
the printer is switched on. Next the write 
character vector is redirected allowing 
the utility to examine each character of a 
program as it is listed. 


When a colon is found, and if bit four of 
the LISTO flag is set, then the line is split. 
The program also tests for quotes to 
prevent line splitting in situations like 
PRINT”:”. Finally the routine determines 
that a program has finished listing, or if 
listing was terminated by pressing 
Escape, when the ‘>’ character is printed 
in command mode. 


Once a program has been listed the printer 
and paging mode are turned off and the 
write character vector is reset. I hope you 
find this utility as useful as I have. 


10 REM Program Listo+ 
20 REM Version B1.10 
30 REM Author Stephen Ramplin 


40 REM BEEBUG July 1993 
50 REM Program subject to copyright 
60: 

100 MODE7 

110 PROCvariables 

120 PROCassemble 

130 PRINT’ "Press Space to save code" 
140 REPEATUNTILGET=32 

150 OSCLI'SAVE Utility 900 "«STR$-PÉ 
160 PRINT'"To activate *RUN Utility* 
170 END 

180 : 

1000 DEFPROCvariables 

1010 brkv-&202:evntv-8220 

1020 wrchv-&20E:ptr-&FD 

1030 brkcpy-&70:evntcpy-&72 

1040 wrchcpy-&74:top-kl2 

1050 mode-&76:listo-&77 

1060 tempX-&78:tempy-&79 

1070 quotesz&7A:input-&700 

1080 listoB-&lF:ptrA-&0B 

1090 osbyte-&FFF4 

1100 oswrch-&FFEE 

1110 ENDPROC 

1120 : 

1130 DEFPROCassemble 

1140 FORpasst-ÜTOZSTEP2 

1150 P$-5900 

1160 (ОРТ разз% 

1170 .init 

1180 LDAbrkv:STAbrkcpy 

1190 LDAbrkv4l:STAbrkcpyel 

1200 LDA#edlisto MOD256 

1210 LDXsedlisto DIV256 

1220 SEI 

1230 STAbrkv 

1240 STXbrkv+1 

1250 CLI 

1260 LDAevntv:STAevntcpy 

1270 LDAevntv+1:STAevntcpy+1 

1280 LDAgcline MOD256 

1290 LDXécline DIV256 

1300 SEI 

1310 STAewntv 

1320 STXevntv«l 

1330 CLI 

1340 LDA&0:STAlisto:STAquotes 

1350 LDA&7:STAmode 

1350 LDA814:LDX82 

1370 JMPosbyte 
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1380 : 

1390 .doError 

1400 PLA:TAY:PLA:TAX:PLA 
1410 JMP(brkcpy) 

1420 : 

1430 .edlisto 

1440 РНА:ТХА:РНА:ТҮА:РНА 
1450 LDY#0 

1460 LDA(ptr),Y 

1470 СИР#26:ВМЕ doError 
1480 : 

1490 .NoSuchVar 

1500 DEY:JSRspaces 

1510 CMP#&C9:BNE doError 
1520 INY:LDAinput,Y 
1530 CMP#79:BNE doError 
1540 JSRspaces 

1550 CMP#ASC"$" :BEQ CalcDec 
1560 : 

1570 .GetMode 

1580 CMPR&EB:BNE doError 
1590 JSRspaces 

1600 CMP#48:BCC doError 
1610 CMP#ASC"8":BCS doError 
1620 AND#&07 

1630 STAmode 

1640 LDAR64 

1650 ORAlistoB 

1660 STAlistoB 

1670 JMPfinish 

1680 : 

1690 .CalcDec 

1700 LDA&0:STAlisto 

1710 .cdloop 

1720 JSRspaces 

1730 CMPR&ÜD:BEQcdcopy 
1740 SEC:SBC#ASC"1" 

1750 ROLlisto 

1760 JMPcdloop 

1770 : 

1780 .cdcopy 

1790 LDAlisto:STAlistoB 
1800 .finish 

1810 BRK:BRK:EQUW&BOB:BRK 
1820 : 

1830 .spaces 

1840 INY:LDAinput,Y 

1850 CMPRASC" ":BEQspaces 
1860 RTS 

1870 : 


1880 .exit 

1890 LDXtempX:LDYtempY 
1900 .ignore 

1910 LDA#2:JMP(evntcpy) 
1920 : 

1930 .cline 

1940 CMP#2:BNEignore 
1950 CPYS&ÜD:BNEignore 
1960 LDAptrA«l 

1970 CMPÀ7:BNEignore 
1980 STKtempk:STYtempY 
1990 LDX40:LDYS&FF 

2000 JSRspaces 

2010 : 

2020 .clloop 

2030 CMPcommand, X: BEQnoabbrv 
2040 CMP#ASC*.*:BNE exit 
2050 CPXiO:BEQexit 

2060 INY:LDAinput,Y 
2070 JMP Сһеско 

2080 : 

2090 .noabbrv 

2100 INY:LDAinput,Y 
2110 INX:CPXé4:BNEclloop 
2120 .Checko 

2130 CMP#ASC"O" :BEQexit 
2140 : 

2150 .testBit6 

2160 LDAlistoB 

2170 ANDÉ&40:BEQtestBit3 
2180 LDXmode:LDA#133 
2190 JSRosbyte 

2200 CPYtop+1:BCCtestBit3 
2210 BEQtestBit3 

2220 LDA#22:JSRoswrch 
2230 LDAmode:JSRoswrch 
2240 : 

2250 .testBit3 

2260 LDAlistoB 

2270 ANDÉ&ÜB:BEQtestBit5 
2280 LDA#14:JSRoswrch 
2290 : 

2300 .testBit5 

2310 LDAlistoB 

2320 ANDÉ&20:BEQredirect 
2330 LDA#2:JSRoswrch 
2340 : 

2350 .redirect 

2360 LDhwrchv:STAwrchcpy 
2370 LDAwrchv+1:STAwrchepy+1 
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2380 LDA&listing MOD256 
2390 LDX#listing DIV256 
2400 STAwrchv:STXwrchv+1 
2410 JMP exit 

2420 : 

2430 .listing 

2440 PHA 

2450 CMP#34:BNE tstArrow 
2460 LDA#&FF 

2470 BORquotes 

2480 STAquotes 

2490 JMPprintchr 

2500 : 

2510 .tstArrow 

2520 CMPHASC'»":BNE tstColon 
2530 LDAptrA+1 

2540 CMP#7:BNEprintchr 
2550 .reset 

2560 LDAwrchcpy:STAwrchv 
2570 LDAwrchcpy+1:STAwrchv+1 
2580 LDA#3:JSRoswrch 
2590 LDA#15:JSRoswrch 


2650 : 

2660 .testBit4 

2670 LDAlistoB 

2680 ANDé&10:BEQprintchr 
2690 LDAquotes:BMIprintchr 
2700 TXA:PHA:TYA:PHA 
2710 LDAB&ÜD:JSRvector 
2720 LDAB&ÜA:JSRvector 
2730 LOX#5:LDAlistoB 
2740 AND#1:BEQnoinx 
2750 INX 

2760 .noinx 

2770 LDA#ASC* * 

2780 .slloop 

2790 JSRvector 

2800 DEX:ENEslloop 


2820 .restore 
2830 PLA:TAY:PLA:TAX:PLA 
RTS 


2860 .printchr PLA 


3000 ENDPROC 

3010 : 

3020 DEF PROCparameter 

3160 ENDPROC 

3290 : 

3300 DEF PROCerr 

3310 REPORT:PRINT* at line "ERL 

3320 PRINT*Press a key":A=GET 

3330 ENDPROC 

3340 : 

3350 DEF PROCefile(it,I$) 

3360 IF 1%-0 PRINTTAB(3,19)*File *+1$+* 
not found" :CLOSE#i$:TIME=0 :REPEATUNTIL 
TIME-200 :CHAIN"SELECT* 

3370 ENDPROC 


Common Procedures 


4000 REM Common procedures 
4010 : 

4020 DEFPROCWindowl 

4030 VDU28,3,20,36,5 


2600 PLA 2870 .vector JMP(wrchcpy) 

2610 JMPoswrch 2880 .command EQUS*LIST" 

2620 : 2890 ] 

2630 .tstColon 2900 NEXTpasst 

2640 СИРЁАЅС" : * :BNEprintchr 2910 ENDPROC 8 
Census (continued from page 9) 

|TRC$, Numb$ : PRINT#C%, Top’ : PRINTÁCS, Rmax% 4040 ENDPROC 

2890 С1Ю$Е#С% 4050 : 


4060 DEFPROCwindow2 

4070 VDU28,3,21,36,15 

4080 ENDPROC 

4090 : 

4100 DEFPROCwindow3 

4110 VDU28,3,24,36,22 

4120 ENDPROC 

4130 : 

4140 DEFPROCblue 

4150 FOR 11%-0 TO 25 

4160 VDU148,157,135,13,10 

4170 NEXT 

4180 ENDPROC 

4190 : 

4200 DEFPROCt (T$, H$) 

4210 PROCblue 

4220 VDU30:FOR 11-1 TO 2:VDU131,157,12 
9,141:PRINTTAB(7)"C E N S U S':NEXP 
:FOR 18-1 TO 2:VDU148, 157,129, 141; PRINTT 
|AB(T&) HS: NEXT 

4230 ENDPROC B 
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A Pool of Perms 
Geoffrey Dodds presents a utility for change ringers. 


The letter from Mr R.J.Lindsell (BEEBUG 
Vol.11 No.10) seeking a way of 
generating permutations is of interest to 
me because, as a change ringer, I often 
require tables of permutations to assist in 
proving that no repetition of a ‘row’ or 
permutation occurs іп а peal composition. 


In English change-ringing, bells are 
numbered in sequence down a diatonic 
scale. At each rotation of the bells a 
symmetrical pattern of changes is woven 
which is repeated using linking changes, 
generating fresh rows with each change 
until the initial row is rung again. The 
main aim is to achieve this without any 
other row being repeated. By varying the 
linking changes, the composer of a peal 
(of over 5000 different rows) needs to 
generate only the first row in each 
pattern, by transposing rows by row 
operators, and checking that none of 
these are repeated. To help with this the 
simple program listed below generates 
permutations in numerical order. 


The number to be permuted, N%, is 
input and used to DIM the array of 
numbers and a checking array, marking 
those numbers used in columns 1 to 
(col'%-1), when finding a number to place 
in perm'%(col%). This is generally quicker 
than loop testing each of the previous 
columns. To initiallise the procedure, 
col%=2 is set and stop% is made FALSE. 


When all permutations have been found, 
‘Complete’ is printed and the program 
stops. Of course, instead of merely 
printing the permutations, they can be 
stored or processed for use within a 
larger program. 


The PROCpermute routine exits with 
col%=N%5+1. On re-entry, the N%th 
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column is examined, its number is taken 
into B% and is also cancelled in array, 
check%. B% is then incremented to the 
next unused number, up to the limit, 
N%, placed in perm%(col%) and 
check%(B%) is set. However, if B%=N%, 
then the number in the previous column 
is dealt with, followed by each 
subsequent column until the 
permutation is complete (col%>N%). 
Finally, when the last permutation, 
N"5,..,3,2,1, has been found, stop% is set 
to TRUE and the program will end. 


10 REM Program Perms 
20 REM Version B 1.0 
30 REM Author Geoffrey Dodds 
40 REM BEEBUG July 1993 
50 REM Program subject to copyright 
60 : 
100 INPUT" (To pause press Space bar)"' 
'"Number to be permuted *, № 
110 DIM permè (№) , check’ (№) 
120 0$-3:col$-2:stop$-FALSE 
130 REPEAT PROCpermute 
140 IF stop$-TRUE UNTIL TRUE:PRINT''Co 
mplete*:END 
150 FOR 18-1 TO NÉ:PRINT,permé(It);:NE 
XT: PRINT 
160 IF INKEY(0)-32 75-СЕТ5 
170 UNTIL FALSE 
180 : 
1000 DEF PROCpermute 
1010 LOCAL B$ 
1020 REPEAT colt=col8-1: 
check$ (В%)=0 
1030 REPEAT IF Bi-N UNTIL TRUE:UNTIL С 
01$-1:stop&-TRUE:ENDPROC 
1040 В%=В%+1 
1050 IF check$(B$)=1 UNTIL FALSE 
1060 perm$(col$) -B&:check$ (BS) =1:с01%=с 
old 
1070 IF col$<=N% B-0:UNTIL FALSE 
1080 UNTIL TRUE:UNTIL TRUE 


-pern& (col8) : 


1090 ENDPROC 
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PD Software 


by Alan Blundell 


Some advice for inexperienced BBC 
owners interested in the Public Domain 
and some details of new software are 
covered in this month's column by Alan 
Blundell. 


You hear some odd things, if you run a 
PD library. Apart from copying lots of 
discs and amassing a wide range of 
software, there are the letters you 
receive. I've been thinking about this 
recently, partly because the number of 
letters which I receive seems to continue 
unabated and partly because of the 
apparent trend for newcomers who are 
still acquiring a BBC micro and getting to 
grips with it. 


I would have thought at this stage in the 
life of the Beeb that the average user was 
someone whose micro fits like a well- 
worn glove, who was familiar with all 
the ins and outs of 8-bit computing and 
who had picked ир all the 
understanding needed to use their micro 
for whatever purposes they own it. 
Apparently not; I regularly hear from 
people who have just acquired a BBC 
Micro and are looking for software to use 
with it. Take, for an (unusual) example, 
the user who had gone from a BBC micro 
many years ago, to an Atari ST, to an 
Amiga, to an IBM PS/2 and back 
recently to a BBC. It is (yet more) 
testimony to the design of the BBC micro 
that this is still happening. 


When you are not familiar with a 
computer, you need support in order to 
become familiar with its ways, and many 
of these new users are looking for ways 
to get to grips with their machines. One 
way of doing that is by reading relevant 
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magazines and picking things up along 
the way, but apart from BEEBUG, there 
is very little available in this line. When 
some people seem to be without even a 
manual with their micro, it must be 
difficult to get anywhere at all! 


With these thoughts in mind, and with 
experience of some problems which 
people have had, I thought that I would 
briefly try to help if you are one of those 
who relies on a disc doing something 
when you press Shift-Break. If not, 
please bear with me; there is some new 
PD software news later on. 


WHAT'S ON THE DISC? 

Not all PD libraries and user groups 
add a menu system to their discs, and 
all have at least some discs without 
menus or for which menus are not 
appropriate. Examples include 
collections of clip art, text files, screen 
images and similar non-program 
software. To find out what is on a disc 
(DFS or ADFS), use the command 
“САТ” this can be abbreviated to just 
^*.' (all BBC OS commands can be 
abbreviated to some degree, so long as 
the command ends in a full stop and 
contains sufficient letters to identify it 
uniquely). After that, the way you deal 
with files varies; clip art, as a particular 
example, should be detailed in the 
manual for your DTP package (if you 
don't have a manual, are you sure that 
you have a legal copy of the program?). 


Text files, probably the most common 
problem area, are quite easy to deal with, 
using the "TYPE command; simply type 
"TYPE «filename», replacing «filename» 
with the actual name of a file, of course. 
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Use Shift and Ctrl together to pause the 
output if there is more than a screenful of 
text. Alternatively, if you have a Master 
series micro, you can load the file into the 
built-in text editor, EDIT, by typing 
*EDIT «filename», or if you have a word 
processor, load the file into that. Either of 
the latter two alternatives is preferable, 
simply because the *TYPE command 
does not let you scroll back if you have 
missed something. A text editor or word 
processor gives you more control. 


Programs which are not accessed via a 
menu are usually Basic or machine code. 
There are straightforward ways of telling 
the difference, but if you have no 
experience, try CHAIN"filename" or 
*RUN filename. CHAIN"" is used to run 
Basic programs; *RUN does the same for 
machine code programs. If neither of 
these works, assume the file isn't a 
program, at least until you have the 
experience to investigate further. 


That's the end of my brief survival guide. 
It probably contains nothing at all new to 
many, but I know that some readers will 
find it useful as a starting point. 


FORTH COMPILER 

It may seem incongruous to go straight 
from a beginners introduction to the 
FORTH language, but Martin Rigby has 
given me permission to distribute as PD 
a FORTH language compiler. The 
compiler is based on a standard source 
code file released by the Forth Interest 
Group, for another computer (actually 
the Rockwell development machine 
System 65). Whilst the source is written 
using 6502 assembler mnemonics, there 
must still have been a significant amount 
of effort involved on Martin's part, since 
the OS calls which the program must use 
are completely different. 
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He has converted most of the relevant 
calls, but warns that the result is not yetà 
complete FIG-Forth compiler, notably in 
not yet having disc-related functions 
included. However, the full source code 
is included, and is heavily commented, 
во if you have a real interest, there is 
plenty of opportunity to get involved 
and develop the compiler further. 


The source is compatible with “ASM” 
and "ADE" by System Software, and 
with Alan Phillips' excellent ROM-based 
public domain assembler, which has been 
mentioned previously in this column. 


BIBLE SEARCH 

Readers may remember a recent PD 
column in which I gave the story of how 
Iconverted the full text of the King James 
bible from an MS-DOS version. The story 
was accompanied by a request for a 
search program for use with the resulting 
5Mb of text files. Paul Goldsmith recently 
sent me just such a program, which does 
the job admirably. Thanks to him for his 
efforts; copies of the program have 
already been passed to interested parties. 


NEW AGE 

Geoff Gibbs has prepared a comprehensive 
set of programs on astrology, which will 
prepare an astrological chart from 
information which you supply and a 
collection of files on the subject of 'New 
Age' philosophy. To quote, "With the 
world in such a mess and the 
shortcomings of science and the 
politicians, it is time that alternative 
ideas are thought about." If you want to 
know something about the subject, this is 
perhaps a good place to start. 


That's it for this issue. Next time, I will 
treat you to an insight into the lighter 
side of running a PD library. 


21 


Gravity and Orbits (Part 5) 


Cliff Blake rounds off his series on orbits. 


Our last program does not involve the 
movement of a spaceship, but shows the 
technique applied to mapping the 
gravity field around a number of bodies. 
To reduce ratios, the mass of each body 
is assumed to be directly proportional to 
its radius. 


THE PROGRAM 

Up to seven bodies may be specified, 
and a choice of plotting zero slope 
contours, or maximum slope lines-of- 
force is given. The centre of each body is 
set by using the cross cursor and 
pressing key C, followed by moving the 
cursor to a point on the required 
circumference and pressing key R to 
determine the radius. 


As à first trial choose 2 bodies and zero 
slope contours. Position the cursor near 
to the lower left corner, and press 'C'. 
Then move the cursor to the right, 
halfway across the screen, and press “R”. 
A disc will be drawn, which may be 
partially off screen. Move the cursor to 
the top right corner, and repeat, but 
make the radius only a couple of 
centimetres. After the last disc is 
completed, the screen clears before 
redrawing them and plotting sections of 
contour lines. These are similar to height 
contours on maps, but in this case 
represent levels in gravity pits. 


To imitate the field around the nodal 
moon of part 4, plot six smaller discs in a 
circle, then cover them with a larger disc. 


When reviewing lines-of-force, note that 
only an initially stationary object would 
start to track along a line. Moving objects 
crossing a line; will have their 
speed/direction modified by the force. 


(R)epeat or (Q)uit can only be selected 
when mapping is finished. 
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The first trial 


YOUR OWN DEMONSTRATIONS 

If you want to try your hard at 

simulated experiments, here are some 

suggestions. 

а) Increment a swinging pendulum and 
show that its motion is sinusoidal. 

b) Introduce air resistance and show that 
the swing dies away exponentially. 

€) If you are into electrics, apply the same 
requirements to a tuned circuit. You'll 
need to use something like V-R'I, 
V-L*dl, I-C*dV, where dI and dV аге 
the increments corresponding to 
mechanical velocity changes. 

d) Show how the level in a draining water 
tank or discharging capacitor varies. 

e) Demonstrate the final positions taken 
up by corks carrying repelling bar 
magnets, floating in water. 

I have done (a), and a problem similar to 

(c), so they are feasible. 


PROGRAMMING TECHNIQUES 

From the start it is best not to get bogged 
down with Laws-of-Motion in actual units 
of distance, velocity etc. The position of 
the spaceship will be defined by graphic 
X,Y values, and velocity movement can be 
simulated by incrementing with further 
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appropriate X,Y step values. Thus: 
Xs=Xs+Xv. Similarly the velocities can be 
incremented to represent accelerations: 
Xv=Xv+Xgp+Xgm, Xv=Xv+Xt 


All the programs in this series follow the 
principle of calculating the next move at 
each incremental step. Where a variable 
is common to more than one program, it 
has the same name. Similar variables 
have similar names to fit the application. 
Thus: Xdp,Ydp for distances to planet, 
and Xdm,Ydm for distances to moon. 
The variables of the LUNAR program in 
part 2 form a useful example, and are: 


SPACESHIP-from-PLANET 


Xdp,Ydp ^ Distances 

Rdps Radial distance squared 

Rdp Radial distance 
SPACESHIP-from-MOON 

Xdm,Ydm Distances 

Rdms Radial distance squared 

Rdm Radial distance 
SPACESHIP 

Xs, Ys Position 

Xv,Yv Positional steps due to 
velocities 

Xgp,Ygp Change in velocity steps 
due to planet's gravity 

Xgm,Ygm Change in velocity steps 
due to moon’s gravity 

XtYt Change in velocity steps 


due to propulsion thrust 


The initial aim should be to get a 
satisfactory graphic display on the screen 
by allocating suitable values to variables 
and constants. If required, apparent actual 
units for display can be obtained by using 
empirical fiddle factors. For example: 
vel! NT(.85*Rv). Trigonometrical 
conversions should be avoided to allow 
the program to increment at an acceptable 
rate. 


Having calculated a radius using the 
form R=SQR(X*X+Y*Y), it is unnecessary 
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to derive the angle in order to obtain the 

trigonometrical components, because 

SIN(angle)-Y/R, COS(angle)-X/R, and 

TAN(angle)=Y/X. For instance, in 

Xgp-20000*Xdp/Rdp/Rdps: 

a) Xdp/Rdp is COS(angle), 

b) /Rdpsis inverse square of distance, 

c) 20000 is an arbitrary mass constant to 
give acceptable movement on screen. 


A more complex map 


Sketching each basic vector diagram on 
paper is a great help in finding ways to 
simplify the calculations. In cases where 
an angle is required, consideration 
should be given as to whether it is 
necessary to turn it into degrees. Usually 
calculations can remain in radians, while 
degrees are used for display only. 


I hope you come up with some interesting 
projects - have fun! 


10 REM Program MAP 

20 REM Version B2.0 

30 REM Author Cliff Blake 

40 REM BEEBUG July 1993 

50 REM Program subject to copyright 


100 DIM Хр(7),Үр(7),Ер(7) 
110 REPEAT 

120 MODE7 

130 PROCinfo:g$-GET 

140 MODEO 
layout:PROCplanets 
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160 PROCauto:VDU7 
170 REPEAT:g$=GET$:UNTIL INSTR(*RrOq*, 
g$) 
180 g%=ASC(g$) 
190 UNTIL g%=81 OR g$-113 
200 CLG:MODE7 
210 END 
220 : 
1000 DEF PROCauto 
1010 FOR y-1015 TO 7 STEP -48 
1020 FOR x-15 TO 1263 STEP 48 
1030 рвоссаіс 
1040 IF accept$=TRUE THEN PROCplot 
1050 NEXT x 
1060 NEXT y 
1070 ENDPROC 
1080 : 
1090 DEF PROCplot 
1100 IF c&-l MOVE x+Ym,y-Xm:DRAW x-Ym,y 
xm 
1110 IF c$-2 MOVE x+Xm,y+Ym:DRAW x-Xm,y 
-Ym 
1120 ENDPROC 
1130 : 
1140 DEF PROCcalc 
1150 Xgt-0:Ygt-0 
1160 accept$-TRUE 
1170 FOR п%-1 TO р% 
1180 PROCdistance 
1190 IF accept%=TRUE THEN PROCgravity 
1200 NEXT n& 
1210 ENDPROC 
1220 : 
1230 DEF PROCdistance 
1240 Xd-Xp(n$) -x:Yd-Yp(n&) -y 
1250 Rds-Xd*Xd«Yd*Yd:Rd-SQR(Rds) 
1260 IF Rd«Rp(n$)424 THEN accept$-FALSE 
1270 ENDPROC 
1280 : 
1290 DEF PROCgravity 
1300 Xg-Rp(n$) *xd/Rd/Rds:Yg-Rp(n$) *Yd/R 
d/Rds 
1310 Xgt-Xgt«Xg:Ygt-Ygt«Yg 
1320 Rgts-Xgt*Xgt«Ygt *Ygt :Rgt=SOR(Rgts) 
1330 Xm-24*Xgt /Rgt : Ym-24 *Yot /Rgt. 
1340 ENDPROC е 


1390 FOR п%-1 TO pt 

1400 x-640:y-512:PROCcursor 

1410 VDU4:PRINT ТАВ(0,29)5РС(79) 
1420 PRINT TAB(2,29) "Centre of Planet * 
;n&;* Then press key C':VDUS 

1430 REPEAT 

1440 PROCmOve 

1450 UNTIL 9%-67 OR 9%-99 

1460 xp(n$) -x:Yp(n$) =y 

1470 x=x+2:y=y-2:PROCcursor 

1480 VDU7 

1490 VDUA4:PRINT TAB(0,29)SPC(79) 
1500 PRINT TAB(42,29) "Radius of Planet 
*;n$;' Then press key R':VDUS 

1510 REPEAT 

1520 PROCmove 

1530 UNTIL g$-82 OR 9%-114 

1540 Xr-Xp(n$) -x:Yr-Yp(n$) -y 

1550 Rp(n$)-SQR(Xr*XreYr*Yr) 

1560 PROCcursor 

1570 МАЛ 

1580 PROCdisc(Xp(n$), Yp(n%) , Rp(n$)) 
1590 NEXT n$ 

1600 60010,1 

1610 *FX4,0 

1620 ENDPROC 

1630 : 

1640 DEF PROCmove 

1650 g=GET 

1660 PROCcursor 

1670 IF INKEY(-1) THEN іпс%-20 ELSE inc 


6 THEN х-х-іпс% 
|17 THEN x-x«inc$ 
8 THEN у-у-ілс% 
1710 IF 4%-139 THEN y=y+inct 
1720 PROCcursor 

1730 ENDPROC 

1740 : 

1750 DEF PROCcursor 

1760 MOVE x-15,y:DRAW x+15,y 
1770 MOVE x,y-15:DRAW x,y+15 
1780 ENDPROC 

1790 : 

1800 DEF PROCplanets 

1810 CLS:CLG 


1350 : 1820 FOR n$-1 TO р% 

1360 DEF PROClayout 1830 PROCdisc (Xp (n$) , Yp(n$) , Rp(n$] ) 

1370 *Fx4,1 1840 NEXT n$ 

1380 GCOL3,1 Continued on page 27| 
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by David Fell 


The Beeb’s graphics аге 
better than those on 
most micros and you 
probably use them at 
least some of the time. 
When you do, you 
quickly come up against 
the fact that, regrettably, 
there isn't a command 
on the model B to draw 
circles automatically. 
The obvious answer is to 
write a procedure to do 
the job and, this month, 
I'll show you an 
effective way of doing 
this. The technique used 
is applicable elswhere, 
so may well be of 
interest to Master 
owners too. 


Like lots of things in life, 
the "obvious" way of 
drawing a circle is not 
necessarily the best. I 
have listed here a very 
simple circle-drawing 
procedure. 


It draws a circle with 
centre at (х%,у%) and 
radius г% graphics 
units. It works perfectly 
well, but it is terribly s-l- 
o-w. The main reason is 
that it has to work out 
no fewer than 72 sine 
and cosine functions in 
drawing the circle. 
Although BBC Basic is 
generally very fast, its 
trig calculations are not 
its best feature. 
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So, any routines which use a lot of 
trigonometry can be irritatingly slow. 
There are ways around that and here's 
one approach to drawing circles without 
calculating a lot of sines and cosines. It 
relies on two equations you may 
remember from school: 


Sin(A+B) =Sin(A) *Соѕ (В) «Cos (A) *Sin(B) 
Cos (A+B) =Sin(A) *Sin(B) -Cos (А) *Cos (B) 


SIMPLE CIRCLE 

10000 DEF PROCCircle(x$,y$,r$) 

10010 LOCAL Vang, steps$, xt emp$, yt empti 
10020 stepsi-36 

10030 MOVE х%,у%+г% 

10040 FOR ang-2*PI/stepst TO 2.01*PI 

STEP 2*PI/stepst 

10050  xtempé-x$«r&*SIN(ang) 

10060 ytemp$=y%+r8*COS(ang) 
10070 DRAW xtemp%,ytempt 

10080 NEXT 

10090 ENDPROC 


Given the values of sine and cosine for a 
starting angle and for the fixed angle we 
want to step in, these equations make it 
easy to calculate a whole series of trig 
functions. The procedure above uses 
steps of 10 degrees and calculates sines 
and cosines for 10, 20, 30 degrees, etc. 
But: 


Sin{10)=Sin(0+10) 
Sin(20)=Sin(10+10) 
Sin(30)-Sin(20«10) 
Sin(40)=Sin(30+10) 
etc. 


Look at the equations above. If we know 
the sine and cosine of 0 and 10 degrees, 
we can calculate the values for 20 
degrees. Having got there, 30 degrees 
follows, and then 40 degrees. So it goes - 
calculate the starting point and the 
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increment (10 degrees in this case) and, 
from then, we need use only simple 
arithmetic to find the sine and cosine for 
every step up to 360 degrees, or as far as 
we want. It's not a very good way of 
finding, say, just Sin(257), but it’s perfect 
for a regular series of calculations, and 
much faster than using the built-in trig 
functions. 


If you're still with me, here's how to use 
this trick to draw a circle. It does the 
same job as PROCcircle, plus a bit more. 
If fill% is TRUE, then it will draw a filled 
circle (i.e. a solid disc), rather than a line. 
It also speeds things up by only 
calculating a quarter of the circle and 
drawing the 4 quadrants simultaneously. 


Lines 10020-10040 choose the number of 
steps in drawing the circle - big ones 
need more accuracy than little ones. 
Lines 10050 and 10060 calculate the fixed 
trig increments to use in the equations 
and line 10080 sets the al values of 
Sin(0) and Cos(0). The хо1%, уо2%, etc., 
are used to record the progress of the 4 
arcs. 


10150 sin=sin*cinc+cos*sinc 

10160 cos=cos*cinc-stemp*sinc 

10170 xtempt=r8*sin:ytempt=r8*cos 
10180 MOVE xol$,yoli 

10190 IF fill$ THEN MOVE x%,y% 
10200 хо1%=хї+хгепр%:уо1%=уй+угепр% 
10210 PLOT plotnot,xol$,yol$ 

10220 MOVE xo2%,yo2% 

10230 IF fill$ THEN MOVE x, yt 
10240 хо2%=х%-хгепрё :yo28=yt-ytempt 
10250 PLOT ріоспоб,хо2%,уо2% 

10260 МОМЕ хо3%,уо3% 

10270 IF fill% THEN MOVE xi, yt 
10280 xo3%=x%-xtemp%:yo3%=yt+ytemp$ 
10290 PLOT plotnot, хо3%,уо3% 

10300 MOVE хо4%,уо4% 

10310 IF fill$ THEN MOVE x8,y8 
10320 xodS=xtextempt :yodi-yt-ytenpt 
10330 PLOT plotnoš,xo4%,yo4% 

10340 NEXT 

10350 ENDPROC 


FAST CIRCLE 

10000 DEF PROCfastcirc(x$,y$,r$,fill$) 

10010 LOCAL a$,cinc, cos, plotno$, sin, 
sinc, stemp, steps, хо1%, xo2%, 
xtemp$, yol$, yo2$, ytempt 

10020 stepsi-32 

10030 IF r$2300 THEN stepst-40 

10040 IF r$«50 THEN steps$-20 

10050 sinc-SIN(2*PI/steps$) 

10060 cinc-COS (2*PI/stepst) 

10070 IF fill$ THEN plotno%=85 ELSE 
plotnot=5 


10080 sin=0:cos=1 
10090 xoli-xi:yoli-yteri 
10100 xo2%=x%:yo2%=y$-r% 


10110 xo3%=x%:yo3%-y%+r% 
10120 хо4%-х%:уо4%-уі-г% 


10130 FOR ТО steps$ DIV 4 
10M0  stemp-sin 
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Lines 10140-10160 are the important 
ones, actually calculating the sines and 
cosines by the equations above. The rest 
of the FOR loop is concerned with 
drawing the 4 arcs plus, if necessary, 
filling in the segments to the circle's 
centre to make a solid disc. 


To give you an idea of the routine's 
speed, it draws circles about 3.5 times 
faster than PROCcircle. Because PLOT85 
is inherently slow, it is not quite so good 
at discs - its speed drops to around 1.8 
times. Overall, though, circles are drawn 
in fractions of a second - try it. 


The best way to find out what the 
procedure can and can't do is to play 
with it, and to incorporate it in your own 
programs. However, here is a demo 
program to give you an idea of the 
routine's speed: 


100 MODE 2 
110 REPEAT 
120 *FX 15,0 
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130 X%=200+RND(880) 
140 — Y8=200+RND(640) 

150 — R&=10+RND(400) 

160  GCOL RND(4)-1,RND(8)-1 

170  PROCfastcirc(X$, Y%, R$, TRUE) 
180 UNTIL INKEYS(0)-* * 

190 END 


Enter that short program along with 
PROCfastcirc. When you run it, it draws 
randomly-positioned discs of random 
size, in random colours. The process 
continues until you press the space bar. 


This technique of rapidly calculating 
successive trig values for steadily 
increasing angles can be used in all sorts 
of calculations. Although it is most useful 
for graphics, there are lots of other 
applications in which it can help. 
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ntinued from pc 


You might like to think how to extend 
PROCfastcirc to draw ellipses. A circle is 
just a special form of ellipse. For 
starters, try an ellipse with major axis 
(the long one) length 2a and minor axis 
2b, centred at (centrex,centrey). Its 
equations are: 


х=сепігех+ (a*COS (ang) ) 
y-centrey« (b*SIN(ang) ) 


When you've done that, how about 
drawing ellipses at angles? It’s not that 
difficult. Next month, ГИ show you how 
to speed-up the calculation of maths 
functions. 


Note: this Workshop is based on one first 
published in BEEBUG Vol.4 No.4. a 
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1850 ENDPROC 

1860 : 

1870 DEF PROCdisc(Xc, Yc,r) 

1880 GCOLO,1 

1890 Се IS(P1/40) :Sa=SIN(PI/40) 
1900 0:MOVE r*CA«Xc, r*SA«Yc 
1910 
1920 
1930 CA=Cp*Ca-Sp*Sa:SA=Sp*Ca+Cp*Sa 
1940 x-r*CAeXc:y-r*SA Yc 

1950 MOVE Xc,Yc:PLOT 85,x,y 

1960 NEXT A 

1970 00013,1 

1980 ENDPROC 

1990 : 

2000 DEF PROCinfo 

2010 *FXll 

2020 y$-CHR$131:c$-CHR$134 :w$-CHR$135 
2030 PRINT ТАВ(12,2)у$+"СВАУТТУ МАР" 
2040 PRINT" 'c$+"You can define up to 7 
planets* 

2050 PRINT c$+"by centre and radius." 
2060 PROCSelectp 

2070 PROCselectc 

2080 PRINT' 'w$+"Press апу key to start. 


2090 PRINT'wS+*After mapping is complet 


2100 PRINT w$+"Press В to Repeat for an 
other layout,* 

2110 PRINT w$+"Press Q to Quit." 

2120 *FX12 

2130 ENDPROC 

2140 : 

2150 DEF PROCselectp 

2160 PRINT'wS+"How many? *; 

2170 REPEAT:p%=GET-48:UNTIL р%>0 AND p% 
«8 

2180 PRINT;p$ 

2190 ENDPROC 

2200 : 

2210 DEF PROCselectc 

2220 *FX21 

2230 PRINT''c$+"Choose whether to map t 
he* 

2240 PRINT c$+"gravitational field with 


2250 PRINT'w$+"1 Zero slope contours" 
2260 PRINT w$+"2 Maximum slope lines o 
f force * 

2270 REPEAT:c$-GET-48:UNTIL с%>0 AND c$ 
3 

2280 PRINT w$s*Choice is: ";с% 

2290 ENDPROC B 
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Applications I Dise 


Bustness GRAPHICS - for producing graphs, charts and diagrams 
Уво CATALOGUER - catalogue and print labels for your video 
cassettes 

PHONE BOOK - an on-screen telephone book which can be easily 
edited and updated 

РЕНБОЋАЦВЕР Lerrer-HEADINGS - d 
letter heads 

APPOINTMENTS DIARY - a computerised appointments diary 
MAPPING THE Bnrrism 16126 - draw a map of the British Isles at 
any size 

‘SeLective BREEDING - a superb graphical display of selective 
breeding of insects 

THE EARTH FROM SPACE - draw a picture of the Earth as seen 
from any point in space 

PERSONALISED ADDRESS BOOK - on-screen address and phone book 

PAGE DESIGNER - a page-making package for Epson compatible printers 

Wort BY Монт AND DAY - a display of the world showing night and day for any time and date of the year 


Pile Handling for AM 
on ths BBC Mere and Asurn Arehimedes 
by David Spencer and Mike Williams 


Computers are often used for file handling applications yet this is a subject 

which computer users find difficult when it comes to developing their own 

programs. File Handling for АП aims to change that by providing an extensive 

and comprehensive introduction to the writing of file handling programs with 

particular reference to Basic. 

File Handling for All, written by highly experienced authors and programmers David 

Spencer and Mike Williams, offers 144 pages of text supported by many useful program 

stings. Its aimed at Baste programmers, beginners and advanced users, and anybody interested in File Handling 
and Databases on the Beeb and the Are. However, all the flle handling concepts discussed are relevant to most 
computer systems, making this a suitable introduction to file handling for all 

‘The book starts with an introduction to the basic principles of Ше handling. and in the following chapters develops. 
ап in-depth look at the handling of different types of files e.g, serial files, indexed files, direct access files, and 
searching and sorting, A separate chapter Is devoted to hierarchical and relational database design, and the book 
concludes with a chapter of practical advice on how best to develop file handling programs, 


"The topics covered by the book include: 
Card Index Files, Serial Files, File Headers, Disc and Record Buffering, Using Pointers, 
Indexing Files, Searching Techniques, Hashing Functions, Sorting Methods, 

‘Testing and Debugging, Networking Conflicts, File System Calls 


‘The associated disc contains complete working programs based on the routines deseribed in the book and a copy of 
Filer, a full-eature Database program originally published In BEEBUG magazine 


in а stylish logo for your 
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ASTAAD 


Enhanced ASTAAD CAD program for the 
Master, offering the following features: 


Ж full mouse and joystick control 

* built-in printer dump 

% speed improvement 

Ж  STEAMS image manipulator 

Ж  Keystrips for ASTAAD and STEAMS 

* Comprehensive user guide 

Ж Sample picture files 

Stock Code Price 

ASTAAD |80 track DFS) . 1407a £5.95 ASTAAD (3.5" ADFS) 1408a £5.95 
Applications П (80 track DFS) 1411а £4.00 Applications П (3.5 ADFS) 1412a £4.00 
Applications I Disc (40/80T DFS) 1404a £4.00 Applications I Disc (3.5° ADFS) 1409a £4.00 
General Utilities Disc (40/80T DFS) 1405a £4.00 General Utilities Dise (3.5" ADFS) 113a £4.00 
Arcade Games (40/80 track DFS) PAGla £5.95 Arcade Games (3.5` ADFS) PAG2a £5.95 
Board Games (40/80 track DFS) PBGla £5.95 Board Games (3.5 ADFS) PBG2a £5.95 


All prices include VAT where appropriate. For p&p see Membership page. 


Board Games 


SOLITAIRE - an clegant implementation of this ancient and fascinating 
one-player game, and a complete solution for those who are unable to 
find it for themselves 

Жош or Honour - Score as many points as possible by throwing the 
five dice in this on-screen version of "Yahtze’. 

PATIENCE - a very addictive version of one of the oldest and most 

popular games of Patience. 

ELEVENSES - another popular version of Patience - lay down cards on 
the table in three by three grid and start turning them over until they 
add up to eleven, 

CRIBBAGE - an authentic implementation of this very traditional card 
цате for two, where the object Is to score points for various combinations and sequences of cards. 

TWIDDLE - a close relative of Sam Lloyd's sliding block puzzle and Rubik's cube, where you have to move numbers round a 
grid to match a pattern. 

CEINESE CuEQUERS - a traditional board game for two players, where the object is to move your counters, following a 
pattern, and occupy the opponent's field 

‘Aces Hion - another addictive game of Patience, where the object is to remove the cards from the table and finish with the 
aces at the head of each column. 


Applications Ш Dise 


CnosswoRp EDITOR - for designing, editing and solving 
crosswords 

MowrHLY Desk Diary - а month-to-view calendar which can also] 
be printed 

SD LANDSCAPES - generates three dimensional landscapes. 

REAL TIME CLOCK - a rcal timc digital alarm clock displayed оп 
the screen 

RUNNING Four TEMPERATURES - calibrates and plots up to fo 
temperatures 

JULIA SETS - fascinating extensions of the Mandelbrot set 
FonEioN LANGUAGE TESTER - foreign character definer and 
language tester 

SHARE INVESTOR - assists decision making when buying and selling shares 

LABEL PROCESSOR ` for designing and printing labels on Epson compatible printers 


Arcade Games 


GronoE AND THE DRAGON - Rescue ‘Hideous Hilda" from the flames E] 
gf the dragon. but beware the lying arrows and the moving holes опо [M 
the floor. nager 


Евонү CASTLE - You, the leader of a secret band. have been 
captured and thrown in the dungeons of the infamous Ebony Castle 
Can you escape back to the countryside, fighting off the deadly 
spiders on the way and collecting the keys necessary to unlock the m 
coloured doors? 

KNIGHT Quest - You are a Knight on a quest to find the lost crown, 
hidden deep in the ruins of a weird castle inhabited by dangerous 
monsters and protected by a greedy guardian. 

PrréALL PETE - Collect all the diamonds on the screen, but try not to 
trap yourself when you dislodge the many boulders on your way. 


BUILDER Bos - Bob is trapped on the bottom of a building that's being demolished. Can you help him build his way out? 


MINEFIELD - Find your way through this grid and try to defuse the mines before they explode, but beware the monsters 
which increasingly hinder your progress. 


Manic MECHANIC - Try to collect all the spanners and reach the broken-down generator, before the factory freezes up. 
QUAD - You will have hours of entertainment trying to get all these different shapes to fi 
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АП prices include VAT where appropriate. For p&p sce Membership раде. 


Stock Code Price Stock Code Price 
File Handling for All Book BKO2b 9.95 
File Handling for АП Disc (40/801 DFS) BK05a — £4.75 File Handling for АП Disc (3.5" ADFS) BKO7a — £4.78 
Joint Offer book and disc (40/80Т DFS) BKO4b £11.95 Joint Offer book and dise (3.5° ADFS) ВКО» 8 11.95 
Magscan (40 DFS) 0005а £995 Magscan Upgrade (40 DFS) Oolla £475 
Magscan (80T DFS) 00000 995 Magscan Upgrade (ВОТ DFS) 0004 £475 
Magscan (3.5° ADFS) 1457а £9.95 Magscan Upgrade (3.5° ADFS) 1458a 5475 
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БА = The main item 

this month 

results from a 

reader's letter, 

which also reminded me of comments 

David Harper made when he sent the 
latest copy of PCCE to me. 


USEFUL SOFTWARE? 

A while ago John Sutton wrote to me 
with his observations on the programs 
from 28 cover discs of various PC 
magazines over the past couple of years. 
In fact there's so much information that I 
can't see how to use it directly here, and 
of course it relates to magazines which 
you either already have, or you don't. 
However, it does prompt me to mention 
magazines as one cheap potential source 
of DOS software which some of you 
might not have tried. 


You probably remember that (8-bit) BBC 
micro magazines included a cover disc 
from time to time, although it was a 
pretty rare event. Moreover, however 
infrequent they were they were never 
regular, Га guess partly because of cost, 
but equally because of content. 


8 bit BBC magazine cover discs 
invariably contained either а 
demonstration of a new application or, 
more likely, a cut-down version of a 
game. These were obviously promotions, 
intended to tempt the reader into buying 
the full version of the software, usually 
at full price. Without doubt the software 
publishers contributed most if not the 
entire cost of the disc, since it was really 
just another form of advertising. 


While a free preview or demonstration of 


software is no bad thing if you happen to 
be interested in that particular (type of) 
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program, I'd guess that few users really 
found these disc of much interest. 
However, you did at least gain a free disc 
out of the deal if nothing else. 


In short, cover discs on BBC micro 
magazines were of limited interest or use 
despite their rarity. They never contained 
fully working software as I recall, and no 
publisher ever made the mental leap 
from a promotional disc to a cover disc 
containing, for example, reader supplied 
usable and useful utilities, though 
BEEBUG has always supplied a 
magazine disc as an optional item. 


In many ways this mirrors the fact that, 
despite the number of 8-bit BBC micros 
sold (estimates vary, but over 1.5 million 
is a conservative figure) neither 
shareware nor PD got off the ground 
until very late in the machine’s life. I 
reckon that Alan Blundell had his work 
cut out starting his BBC PD operation 
and he deserves all the support he gets, 
especially now that some 512 discs and 
ex-commercial programs are included. 


PC MAGAZINES 

In contrast to BBC micro magazines, the 
majority of PC magazines nowadays do 
include a cover disc, many of them 
every month and in some cases two 
discs are provided. Of course, the use of 
the word ‘free’ is open to debate, but 
you can’t complain if a magazine offers 
à cover disc (or two), has more pages 
than Acorn User or Micro User have 
ever had (combined!) and still costs no 
more than either of them did several 
years ago. 


There are good reasons for the 


difference, so we shouldn't judge 
Redwood ог Europa too harshly. РС 
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magazine publishers aren't just being 
altruistic, they have a much larger 
circulation than BAU or MU ever did. 
You'll also find that out of, say, 400 
pages half is advertising space in most 
of them. Volume production means low 
unit costs anyway, but add high 
advertising revenues too and it equals a 
low cover price without pain. Those are 
the economics, but all the reader need 
do is be pleased with the situation and 
take advantage of it. 


I haven't surveyed the market for you, 
а visit to any large newsagent will 
accomplish that, but a good example is 
Computer Shopper. (No, 1 have no 
connection with it except as an 
occasional purchaser.) ‘Shopper’ 
doesn’t always have a cover disc, but it 
does always include sections for 
Archimedes, Amiga, Atari and 
Macintosh as well as PCs, yet only this 
year it increased its price from £1.20 to 
£1.49. How dreadful! 


PC Direct also sells at a similar price, 
but some publications are distinctly 
more profit oriented. At the other end 
of the scale are magazines costing twice 
that amount and more. One that comes 
to mind, although it does have a cover 
dise and occasionally hits 500 pages, 
has an advertising content just as high 
as any but only glossier paper to justify 
its stunning price. I suggest that neither 
the thrifty nor the environmentally 
concerned should be amongst its 
customers. 


A quick look at the contents, and one or 
two judicious test purchases, will soon 
show which magazines are the best 
value, are the most interesting, and are 
the most likely to offer useful programs 
for your 512. There are occasionally 
demos on PC cover discs just as there 
were on BBC discs, but just as often a 
few and sometimes 50 or more small 
DOS utilities will appear on a disc. 
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One problem for most 512 users is that 
most PC cover discs are 3.5 inch these 
days. Some magazines are still published 
with both 3.5 and 5.25 inch discs and you 
buy the one that suits, though note that 
5.25” discs are always 360K while 3.5” 
discs are 720K, so the two don't always 
provide the same (or the same quantity 
of) software in any given issue. Others 
are produced only with 3.5” discs, but 
you can return the disc to swap it for a 
5.25”, although that’s obviously less 
convenient. 


COMPATIBILITY POINTERS 

With regard to the programs you'll find 
on PC cover discs, overall the range of 
problems is typical for the 512, but some 
general guidelines will help a bit. 


All executable PC programs are one of 
two type, .COM or .EXE (there are no 
-CMD files in MS-DOS) and this is the 
first indicator. Both types contain 
machine code, but they're quite different 
internally and in how they were 
produced. A bit more explanation will 
help you to see why this is and how it 
can affect 512 compatibility. Naturally 
these points can be applied to programs 
from other sources too. 


COM programs are written in assembly 
language which is directly converted into 
a program file by a single operation. 
Note that direct program assembly 
always produces a COM file, even if the 
source code is in several separate files 
and/or uses a library. Because of this 
one-shot approach, COM files must be 
less than 64K in size, although they can 
access any memory in the machine and 
expand internal storage as much as they 
like once they're running. 


An assembler's job is only to convert 
source code directly into machine code 
by a straightforward look-up procedure, 
without adding anything and without 
making any assumptions. As a result, if 
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the programmer didn't write the 
instructions in the source it doesn't 
happen in the program. There are no 
‘pre-packed’ facilities in assembly code, 
so external functions are normally 
accessed via standard DOS interrupts. 
This is simple, fast and memory efficient, 
prime reasons for using an assembler in 
the first place. 


In general most COM programs are 
written with XT computers in mind, and 
since these, like the 512, have limited 
memory and run only DOS, COM 
programs are a good bet for the 512. One 
ог two magazines definitely tend to cater 
for this market as much or more than 
Windows, and so they're always worth 
checking when you pass the magazine 
racks. 


Magazine cover disc COM programs will 
be utilities, covering a wide range of 
purposes, some it must be said pretty 
obscure, but always remember that disc 
utilities are generally the least reliable 
sort of program for the 512. 


Despite potential disc problems, and 
the fact that some programs seem to be 
answers looking for questions, one or 
two gems appear from time to time. For 
example, a while ago I came across a 
program called CODE which I find 
extremely useful. You can supply either 
a telephone exchange name when you 
call CODE, in which case it will return 
the STD dialling code for that 
exchange, or you can supply a dialling 
code and it will tell you the exchange it 
belongs to. CODE is simple and neat, 
when I have a dialling code I want to 
identify, it's just about the perfect tool 
for the job. 


By contrast, EXE programs, even if 
written for DOS, are much less likely to 
run in the 512 than COM programs. In 
detail there are a large number of causes 
of potential problems in the 512 but, 
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graphics apart, troubles can, in general, 
be explained as follows. 


Producing an EXE file isn't a single 
process. Various modules or sections of 
the final program can be and often are 
written separately, sometimes using 
different languages. These modules (even 
if there is only one) are first assembled or 
compiled into separate object modules. 
This produces one or several lumps of 
machine code, but these aren't yet 
programs, they must be converted into 
an executable program file which is done 
by a linker. This, as its name implies, 
links the various raw pieces of code 
together to form the finished program. 


If all the source modules are written in 
assembler it's probable that the resulting 
program will be as likely to run in the 512 
as a COM file. However, since EXE 
programs can be larger than COM files and 
not many people have assembler expertise, 
source code is usually written in a high- 
level language such as C. This is easier and 
faster to write in than assembler, in part 
because I/O functions in high level 
languages are provided by libraries of 
‘standard’ routines which сап be called, 
such as STDIO (standard I/O) in C. These 
routines are written by the compiler's 
authors, not the program's, and are added 
into the program at compile time. 


Unfortunately, the subroutine libraries of 
many recent PC compilers, regardless of 
language, either rely heavily on, or make 
assumptions about the environment in 
which they run and will produce 
programs that display similar 
characteristics. For example, rather than 
using DOS interrupts for keyboard input 
or printer output, both of which are slow, 
but they all work even in the 512, some 
languages' library routines insist on 
reading or writing ports directly. 


The truth is that these devices are slow 
too, so in fact the DOS functions are 
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perfectly adequate for most purposes 
and peeking or poking memory-mapped 
I/O gains nothing. Even so, it’s a 
common technique and if that's how a 
language's library routines work that's 
how all the programs compiled by that 
language will work too, with the result 
that they won't work in a 512. Knowing 
this doesn't make life any easier, but it's 
important to remember it's not usually 
the application itself that’s the cause of 
troubles, it’s the way it was produced. 
This is why compatibility is a more 
common problem with recent versions of 
some EXE programs. 


Finally, leaving program types and 
getting back to magazine discs, it hardly 
needs saying, but I'd better - any 
magazine (disc) aimed primarily at 
Windows will be a waste of time and 
money for 512 users. 


Despite some problems, many PC 
magazines do offer another worthwhile 
source of programs for the 512. You can 
not only keep up to date with latest PC 
developments, you can have a good read 
and perhaps gain a useful utility or two Бу 
spending only a couple of pounds or so. 


MORE 512 SPECIALS 

I don't yet know how popular the 
software offer in last month's Forum will 
be, but I've decided to do it again and 
throw in three of my own programs 
which, like David's were originally 
written for my own convenience. 


This time you get a disc copying 
program called FASTBACK which, 
unlike PC programs does handle 800K 
discs (plus the other sizes) and which 
will duplicate a disc as fast as the 512 can 
do it by using all the available memory 
for both reads and writes. By comparison 
DISK is 50% slower. 


Accompanying FASTBACK are two 
other programs. The second is SAK 


Beebug July 1993 


(Seek And Kill) which locates any file 
or files matching a given name (which 
can be wildcarded) in any directory on 
any drive. For each occurrence of a 
matching name you have the option of 
deletion. This сап be very useful if you 
sometimes find you have a number of 
redundant *.TMP, *.BAK or similar 
files hanging around wasting disc 
space. 


The third program is DESTROY, which 
likewise accepts a (wildcarded) name 
and offers deletion, but this time the 
matched object can be either a file or a 
directory, in the latter case including any 
subdirectories and files. One DESTROY 
command can replace any number of 
separate DELs, CDs and RDs and 
effectively also offers a way of wiping a 
complete disc clean which is very much 
faster than reformatting. 


Both SAK and DESTROY can remove 
system and hidden files directly, but both 
are totally safe because positive 
confirmation is needed before either 
deletes anything. Also, to delete 
directories and all their contents in 
DESTROY you really have to insist that it 
does so. 


You won't need these programs every 
day, but when you do they can save a 
lot of effort and time. The cost's the 
same as before, £2.00, so at 60p a 
program it doesn't take much to justify 
them. As before, write to me c/o 
Essential Software if you'd like them. 


If anyone else has a masterpiece of code 
that they think might be useful to 
fellow 512 users (and which is all your 
own work) send me a copy and, if I 
agree with you and can accumulate two 
or three of them there'll be another 
offer. 


Next month I'll finally get round to 
PKZIP. 
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Sound (3) 


Alan Wrigley continues his description of the BBC 
micro's sound system. 


ENVELOPES 

The previous two 
articles on the sound system have been 
concerned with the use of the Basic 
keyword SOUND. The sounds we have 
produced so far have varied in pitch, 
amplitude and duration, and we have 
also introduced an element of noise. The 
one main characteristic of a sound so far 
missing is its envelope, and that is what 
we are going to look at this month. 


An envelope describes how the amplitude 
of a sound (and/or its pitch as we will see 
later) changes over the duration of the 
sound. An envelope can therefore be 
thought of as a graph of amplitude against 
time, and is often represented in this form 
in diagrams. Figure 1 shows a typical 
envelope. Here the amplitude of the sound 
rises sharply to its peak, then falls off 
rapidly until it reaches a kind of plateau, 
from where it decays more slowly until at 
some point it is terminated fairly abruptly. 


Figure 1. A Typical amplitude envelope 


A note played on a piano is of this type. 
When you hit a key, there is a sharp burst 
of sound, and then the note fades away 
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slowly until the key is released, 
whereupon it will die fairly quickly. Of 
course, in real life the envelope will be 
more complex than this - the amplitude 
will be unlikely to rise and fall in neat 
straight lines. Nevertheless, a good 
approximation to a natural envelope can 
be made by this method, and so it lends 
itself very well to computerisation: 


This type of envelope is known as an 
Attack-Decay-Sustain-Release (or ADSR) 
envelope, reflecting the four phases of 
the envelope. The attack phase describes 
the increase in amplitude from zero to its 
maximum level; the decay phase is the 
period during which the amplitude falls 
rapidly to a more sustainable level; the 
sustain phase refers to the period of 
slower decay (or in many cases 
completely stable amplitude); and the 
release phase describes the final 
termination period of the sound 
Synthesisers normally allow the 
characteristics of all these phases to be 
set independently, thus enabling many 
different kinds of sound to be imitated. 


BBC Basic provides a powerful 
ENVELOPE command which allows you 
to do the same for sounds produced 
using the SOUND command. The use of 
ENVELOPE is quite complex, and you 
may well find that you need to 
experiment a great deal in order to 
achieve the results you want. 


THE ENVELOPE COMMAND IN 
DETAIL 

Normally up to four different envelopes 
can be defined at any one time. These are 
numbered 1 to 4, and the envelope 
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First Course 


number is given as part of the 
ENVELOPE command's parameters, as 
we will see in a moment. Before an 
envelope will have any effect, however, 
we must tell the computer when 
a SOUND command is issued 
that we want it to be controlled 
by an envelope. This is very 
easy - since the envelope 
describes the amplitude 
characteristics of the sound, we 
do not need the A (amplitude) 
parameter, so we replace it with 
the envelope number. If you 
remember from the previous 
articles, this parameter was 
always zero or negative when 
referring directly to amplitude; 
by making the parameter 
positive we can specify the 
envelope number instead (1-4). 
For example, consider the 
following lines: 
SOUND 1, -15,100,5 
SOUND 1,2,100,5 


In the first line, the sound is produced at 
maximum volume; in the second, the 
amplitude of the sound is regulated by 
envelope 2. 


The ENVELOPE command itself is 
followed by 14 parameters, so take a 
deep breath and read on. Because of the 
command's complexity, the rest of this 
month's article will be devoted to an 
explanation of the parameters. This 
means a lot of theory, I’m afraid, but next 
month we will go through the process of 
developing some actual examples. If you 
don't understand all the theory at first, 
re-read the parts that are puzzling you 
and experiment with the command as 
much as you can. 


The parameters are as follow: 
ENVELOPE N, T, P11 
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AA, AD, AS, AR, ALA, ALD 
Figure 2 gives a brief description of 
each parameter, and they will now be 
explained in more detail 


Function 


Envelope number 
Length of each step in centiseconds 
0 = auto-repeat pitch envelope 
1 = don't repeat pitch envelope 
Change of pitch per step in section 1 
Change of pitch per step in section 2 
Change of pitch per step in section 3 
Number of steps in section 1 
Number of steps in section 2 
Number of steps in section 3 
“12710 127 Change of amplitude per step during 
attack. 


phase 
“127100 Change of amplitude per step during 


-12710127 


y 
Change of amplitude per step during 
phas 


sustain phase 
Change of amplitude per step during 
release phase 

Target amplitude level at end of 
attack phase 


Таа DONIS level a end of 
decay phase 


“127100 
0o 126. 
000126 


Figure 2. Parameters to the ENVELOPE command 


N specifies the envelope number. This 
should match the number given in the 
SOUND command which is to be 
controlled by the envelope. Four 
envelopes (1-4) are available as standard, 
but if your program doesn't make use of 
the Basic file-handling statement ВРОТ# 
at all, then up to 16 envelopes (1-16) may 
be defined. 


To help you tailor the envelope to your 
own needs as accurately as possible, 
each phase can be broken down into a 
number of steps of equal duration. As 
you can see from Figure 2, many of the 
other parameters make use of this. For 
example, with AA you can determine 
how sharp the attack gradient is by 
specifying the amplitude increase per 
step. The bottom 7 bits of the T 
parameter (bits 0-6) enable you to set 
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the step length (in centiseconds) which 
will be used over the entire envelope. 
Since this value will be used by all the 
other parameters that relate to the step 
length, you should choose it with care. 
You may need to experiment with 
different step lengths until the sound is 
right. 


Clearly the lengths of the attack and 
decay phases are determined by the 
step length (T), the volume change per 
step (АА and AD) and the number of 
steps required to reach the target 
volume (ALA and ALD). For example, 
if T is 1, AA is 1 and ALA is 100, the 
attack phase will last 1 second. 
Similarly, the length of the release 
phase is determined by the number of 
steps required to get to zero from the 
level at the end of the sustain phase. 
However, the length of the sustain 
phase itself cannot be determined 
solely by the envelope parameters. This 
is where the D (duration) parameter of 
the SOUND command comes in. This 
specifies the length of the sound from 
the start of the attack to the end of the 
sustain. Thus the sustain length will be 
duration-(attack+delay). Note that if D 
is shorter than the attack or attack-plus- 
delay phases, the sound will be 
terminated before it reaches the sustain 
level. 


I mentioned earlier that an envelope 
can describe pitch as well as 
amplitude. Both types of envelope are 
covered in one ENVELOPE command, 
the pitch element being determined by 
PI1 - PN3. If you don't want the pitch 
of the sound to change while it is 
playing, then РЦ - PN3 should all be 
set to zero. However, many sounds do 
alter their pitch over time (a siren, for 
example), and these parameters allow 
you to cater for this. The pitch 
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envelope consists of three sections; for 
each of these you can set the number 
of steps (using РМ1 - PN3) and the 
change of pitch per step (PI1 - PI3), 
and the values for each section are 
independent of each other. 


The pitch envelope is also independent 
of the amplitude envelope. This is 
important, since for some sounds the 
two may coincide in time, while for 
others they may not. An example of the 
first might be a cat miaowing - the 
pitch tends to rise and fall with the 
amplitude of the miaow. An example 
of unsynchronised envelopes would be 
а police siren approaching and then 
disappearing into the distance - here 
the pitch of the siren changes 
repeatedly between the two levels 
while the amplitude slowly increases 
and then decreases (unfortunately the 
Doppler effect can't be achieved within 
а single sound - there have to be some 
limitations!). 


In the case of the siren, the pitch 
envelope repeats over and over again 
for the duration of the sound. In other 
cases you may want the pitch envelope 
to take effect once only at the start of 
the sound, after which the pitch 
remains constant. This is determined by 
the top bit of the T parameter. By 
default this is zero, meaning the pitch 
envelope auto-repeats, but if you set it 
to 1 then it doesn't repeat. 


Next month I will look at the remaining 
parameters and describe some examples 
of the use of ENVELOPE. In the 
meantime, you might like to try out the 
following ехатрі 

10 EN 


АП will be explained next month! B 
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More Hide and Seek 


Marshal Anderson looks at more complex game structures. 


If you went Snib hunting last month you 
should by now have sent a fair few to 
meet their programmer. This month I 
want to look at something a little more 
complex but, again, the idea is to give 
you a basic game which you can jazz up 
in all sorts of weird and wonderful ways. 


THIS TIME IT'S GRIBBITS 

The Gribbit is not quite as aggressive as 
the Snib in as much as it isn't hunting 
you (usually). It sleeps in a network of 
caves a plan of which you see below. 


2 3 
L| a a 
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A cunning plan 


Type in the listing below and, using the 
plan, have a go at hunting down the 
Gribbit - then try it without the map. 
Some care and strategy will bring you 
success every time, with levels 1 and 2, 
but level 3 should be quite a challenge. 
The specific differences between the 
levels are discussed below. 


In programming terms we have to deal 
with this quite differently from the Snib 
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grid; each cave has to have its links to 
other caves specifically stated. This is 
done in the DATA statements in lines 
2470-2620. The order of the statements 
reflects their cave number so line 2470 is 
the data for cave 1. To make life easy, the 
data of each cave is padded out with 
zeros to 5 items, the maximum number of 
links for any cave (see the map above). 
Every time you wanted to know the links 
for a cave you could do a READ but this 
is rather slow so the whole lot is read into 
an array in PROCinitialise which also sets 
up the HAZARDS% array. 


Once we've initialised things and printed 
out the instructions with PROChello, we 
need to set up the actual game 

PROCstartnewgame first gets the 
difficulty level in DIFF%. Next it sets up 
the pit traps (to fall into), giant bats (to 
carry you around), the Gribbit's position 
and your starting point in case you want 
to play the same game again. If DIFF% is 
1 line 2360 makes two of the 
НА?АКр%() elements -1, one bat and 
one pit, so they don't appear in any of 
the rooms. This is the game at its easiest. 


You are in room 6 


Passages go to rooms 5 2 3 18 9 


You hear bats! 


You feel a breeze! 
You smell Gribbit!!! 


Do you want to Move or Shoot? 


Now you're in trouble 


In the actual game the first procedure we 
use is PROCwhereaml which prints your 
position and the rooms you can move to; 
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the variable YOUAREHERE% keeps 
track of your position. Once we know 
where we are we need to check if any of 
the hazards are in adjoining rooms - 
PROCanynews does this. What it is 
looking for is a match between any of the 
cave numbers in HAZARD%() and the 
caves you could move into. In a purely 
arbitrary way elements 1 and 2 are used 
for the bats, 3 and 4 for the pits and 5 Юг 
the Gribbit. For each match it finds it 
prints a message. If there are two sets of 
bats or pits the respective message is 
printed twice. 


Obviously it's a Big Clue if you see two 
lots of bats or pits from one room; this is 
where difficulty level 3 comes in. The bit 
of code at the end of lines 1480 and 1490 
will make sure that, even if there are two 
lots of bats or pits there will only be one 
message printed making their locations 
more difficult to guess. 


Now we know where we are and what is 
in the caves around us we get the choice 
of moving or shooting. FNwhatnow gets 
the choice here using GET$ and accepts 
upper and lower case. Depending on the 
reply PROCmove or PROCshoot are called 
and they both use INPUT to get the 
relevant cave number. Cave numbers are 
checked to make sure they are valid and 
lines 1170 and 1570 check for a Return 
with no number typed - this avoids a 
move into room 0. 


If we're moving and the move is legal 
then YOUAREHERE™% is updated; if 
we're shooting then things get more 
complicated. PROCshoot also checks for 
a valid cave to shoot into - only adjacent 
ones are acceptable - and it then checks 
HAZARDS%(5) to see if you have hit the 
Gribbit. If you have, PROCgotim displays 
a message and PLAYING% is set to 
FALSE so the game will drop out of the 
loop. If you miss the target things get a 
bit more interesting: from a game design 
angle there's no point in just letting your 
player shoot into all the surrounding 
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caves when they smell the Gribbit - that's 
no game at all. What we do is move the 
Gribbit if they miss, possibly into the 
cave they're in, so there's a real incentive 
to work things out strategically. 


Having moved or shot, there is a check 
on the new location in PROChowanl. 
This shifts you about if you've got bats, 
and double checks the new location so 
you can get more bats, drop down a hole 
ог meet the Gribbit. If you go down a 
hole or meet the Gribbit it ends the game. 


SO, WHERE NEXT? 

The basic game already has three levels 
of difficulty; the more hazards there are 
to be avoided, and the less information 
you give about them, the more difficult 
the game is. Moving the Gribbit more 
often will certainly spice things up, you 
could move it each time you come across 
the bats or you could shift it after a 
certain number of moves to make the 
player get their act together. If you were 
feeling really nasty you could change its 
position at totally random times. 


The next thing is cave system design. The 
more connections there are to each cave 
the more difficult it is to play the game. 
Linkages between caves needn't be two 
way or in any way logical and they could 
even change as the game goes on 
(rockfalls?), you could also write a 
procedure to construct totally random 
systems. You could try multiple Gribbits, 
have things that chase you and catch up 
if you stay in the same area too long, 
have torch batteries that run out so that 
new ones have to be found, there's 
plenty of scope. In fact, there's no reason 
why you should not develop this into full 
blown adventure game. There's also all 
the ideas about presentation that I wrote 
about last month. 


While you're developing and testing all 
this you will probably find PROCinfo 
useful. Presently it just prints out the 
contents of HAZARD%() and you bung it 
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somewhere useful in the game loop, it 
always helps to know what's really going 
on - at least that’s what my dear mum 
used to tell me - so give it a go and let us 
see the results. 


10 REM Program Gribbit 

20 REM Version В1.0 

30 REM Author Marshal Anderson 

40 REM BEEBUG July 1993 

50 REM Program subject to copyright 


100 MODE 1 

110 PROChello 

120 PROCinitialise 

130 PROCstartnewgame:CLS 

140 PROCWhereaml 

150 PROCanynews 

160 IF FNwhatnow: 
Cshoot 

170 PROChowamI 

180 IF PLAYING$ GOTO 140 

190 ON FNished GOTO 130,200,210 

200 PLAYINGS-TRUE:YOUAREHERES-HAZARDS ( 
6) :CLS:GOTO 140 

210 PRINT" ''*Вуеееееееее* 

220 END 

230 : 

1000 DEF FNished 

1010 PRINT''''"You сап:"'''"1) Hunt ano 
ther Gribbit*'''*2) Hunt the same Gribbi 
є"''''*3) Go home." 

1020 INPUT '''"Enter your choice";CHOIC 
bi 

1030 =CHOICES 

1040 : 

1050 DEF PROChello 

1060 CLS 

1070 PRINT"You are about to hunt these 
caves for a rabid Gribbit'''"You are arm 
ed with an infinite number ofnot-very-in 
telligent personal missiles" 

1080 PRINT’ "You hunt the Gribbit by its 

unpleasant smell, you will smell it wh 
en it's one room away." 

1090 PRINT'"You will be asked if you wi 
sh to Move orShoot. You will then be ask 
ed which roomyou want to-move or shoot i 
nto." 


PROCmove ELSE PRO 


1100 PRINT'*If you hit the Gribbit you 
win, there's plenty more where that came 
from.''"If you shoot and miss you will 
wake the Gribbit and it will move - anyw 

here.* 

1110 PRINT'*If you are ever in the same 
room as the Gribbit you will expire fro 
m the smell.*'"Watch out also for giant 
bats and*''bottonless pits!" 

1120 PROCpak 

1130 ENDPROC 

1140: 

1150 DEF PROCshoot 

1160 INPUT''"Shoot into which room";AIM 
% 

1170 IF АІМ%-0 GOTO 1160 

1180 CANSHOOT$=FALSE 

1190 FOR X&-1 TO 5 

1200 IF AIM¥=ROOMS$ (YOUAREHERES, ХФ) CAN 
SHOOT&-TRUE 

1210 NEXT X$ 

1220 IF NOT CANSHOOT% PRINT''"The missi 
les aren't that bright,"'"try again''':P 
ROCWhereamI:GOTO 1160 

1230 IF AIM&-HAZARD&(S) PROCgotim ELSE 
PROCmoveim 

1240 ENDPROC 

1250 : 

1260 DEF РЕОСпоуеіл 

1270 NEWGRIB&-RND(15)«1 

1280 THESAMER-FALSE 

1290 FOR X&-1 TO 4 

1300 IF NEWGRIBW=HAZARD%(X%) THESAMER-T 
RUE 

1310 NEXT X$ 

1320 IF ТНЕЅАМЕФ GOTO 1270 

1330 HAZARDS (5) =NENGRIBS 
'Missed!*''"You hear th 


1350 ENDPROC 

1360 : 

1370 DEF PROCgotim 

1380 CLS 

1390 PRINI*This Gribbit eats согдісе!"' 
'"Well done, oh mighty hunter." 

1400 PLAYINGÉ-FALSE 

1410 ENDPROC 

1420 : 

1430 DEF PROCanynews 
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1440 PRINT' 

1450 FOR Х%-1 TO 5 

1460 FOR Y$-1 TO 5 

1470 IF HAZARDS (Xt)«»ROOMS$ (YOUAREHERES 
,Ү%) GOTO 1510 

1480 IF X$=1 OR X$-2 PRINT’ *You hear ba 
їз!*:1Р DIFF&-3 Х%-2 

1490 IF X&-3 OR X$=4 PRINT'"You feel а 
Ibreeze!":IF DIFF&-3 Х%-4 

1500 IF X&-5 PRINT'"You smell Gribbit!! 
n 

1510 NEXT Ү% 

1520 NEXT X% 

1530 ENDPROC 

1540: 

1550 DEF PROCmove 

1560 INPUT''"Move to which room";NEWROO 
M 

1570 IF NEWROOMÉ-0 GOTO 1560 

1580 CANMOVE&-FALSE 

1590 FOR X&-1 TO 5 

1600 IF NEWROOM$-ROOMS$ (YOUAREHERES, X$) 
CANMOVER-TRUE 

1610 NEXT X$ 

1620 IF NOT CANMOVES PRINT''"I think yo 
u're lost, try again''':PROCWhereamI:GOT 
0 1560 

1630 YOUAREHERES-NEWROOMS 

1640 CLS 

1650 ENDPROC 

1660 : 

1670 DEF PROChowamI 

1680 00Р5%=0 

1690 FOR X&-1 TO 5 

1700 IF YOUAREHERER-HAZARDR (ХЗ) 00Р5%=Х 
% 
1710 МЕХТ Х% 

1720 IF 00Р5%-0 ENDPROC 

1730 IF 00Р5%-1 OR 00Р5%-2 PROCbats:GOT 
0 1680 

1740 IF 00Р5%-3 OR 00Р5%-4 PROChole 
1750 IF OOPS&-5 PROCgotchya 

1760 ENDPROC 

1770 : 

1780 DEF PROCbats 

1790 YOUAREHERES=RND(15) +1 

1800 PRINT''*Giant bats carry you to ro 


1820 : 

1830 DEF PROChole 

1840 PRINT"You just fell down a very la 
rge hole!* 

1850 PLAYING$=FALSE 

1860 ENDPROC 

1870 : 

1880 DEF PROCgotchya 

1890 PRINT'''"You just bumped into a Gr 
ibbet !"'*Or it just bumped into уош.*'*1 
t's bad news either way I'm afraid." 
1900 PLAYING$=FALSE 

1910 ENDPROC 

1920 : 

1930 DEF FNwhatnow 

1940 PRINT'''"Do you want to Move or Sh 
joot?* 

1950 A$=GET$ 

1960 IF AS="m" AS="M" 

1970 IF A$-'s* A$-'S* 

1980 IF А$<>"М" AND А5<>"5" GOTO 1950 
1990 -А5 

2000 : 

2010 DEF PROCinitialise 

2020 DIM HAZARD$(6) 

2030 DIM ROOMS$(16,5) 

2040 RESTORE 

2050 FOR Х%-1 TO 16 

2060 FOR Y$-1 TO 5 ny 
2070 READ ROOMS® (X, Yi) 

2080 NEXT Y$ 

2090 NEXT X$ 

2100 ENDPROC 

210 : 

2120 DEF PROCpak 

2130 LOCAL X$ 

2140 PRINT''"Press а key" 

2150 X&-GET 

2160 ENDPROC 

2170: 

2180 DEF PROCwhereamI 

2190 PRINT*You аге in room *;YOUAREHERE 
% 
2200 PRINP''"Passages go to rooms *; 
2210 FOR Х%-1 TO 5 

2220 IF ROOMSS(YOUAREHERES,X$)»0 PRINT; 
ROOMS& (YOUAREHERE$,X$);" "; 


от ";ҮОЈАКЕНЕКЕФ' ' 2230 NEXT X$ 
1810 ENDPROC 
Continued on page 46 
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Harry Fensom goes a step further into Big Maths. 


This month's programs provide 
multiplication and division of integers 
up to several thousand digits. 


NOTES ON PROGRAMMING 
METHODS 

Storage and indexing are the same as in 
the + and - programs you saw last 
month. The algorithm used for 
multiplication uses the usual successive 
additions followed by shifting of the 
arrays. The division is similar but uses 
trial subtractions, reverting to the 
previous partial remainder when the 
subtraction produces a negative result. 


USING THE PROGRAMS 

Enter the listings given below, save them 
and then run them. In both programs 
you will first be asked for the maximum 
number of digits you wish to use; keep 
in mind that a large value will take a 
longer time to process. Note that the 
result of a multiplication may require up 
to the sum of the number of digits in the 
two numbers entered. You will then be 
asked to enter the first and second 
numbers of the operation you want to 
carry out; numbers are entered as you 
usually do with the most significant digit 
first, i.e. from left to right. The number is 
terminated with the Return key. 


The terms multiplicand and multiplier аге 
the first and second numbers entered in 
a multiplication, and the product is the 
result. Similarly the dividend and divisor 
are the two numbers entered for 
division, and the quotient is the result. If 
the quotient is not an integer, i.e. not a 
whole number, then the remainder is also 
given. Thus the quotient times the 
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divisor plus the remainder equals the 
dividend. This quotient and remainder 
are equivalent to DIV and MOD in 
ordinary Basic. Once both numbers have 
been entered the calculation will take 
place and will be displayed when 
complete. You may have to wait awhile 
for very large numbers; for example, a 
5000 digit multiplication may take 
possibly 10 minutes, while division of 
the same length may take more than half 
an hour - not including the time it takes 
you to enter the numbers! However 1000 
digit division may only take 2 minutes. 


Next month we'll tackle the longer and more 
complex task of finding square roots. 


Listing 1 


10 REM Program MULlarg 

20 REM Version B.4.2c 

30 REM Author Harry W Fensom 

40 REM BEEBUG July 1993 

50 REM Program subject to copyright 

60 : 

100 INPUT'Maximum no. of digits *m%:ma 
x$&-m$42:bytes$-maxt/2 

110 PROCinit 

120 PROCassemble 


140 2ar$-?0pdlp$:ari?1-opdlp$?l:CALLcl 
150 ?ar$-?0pd2pt:ar$21-opd2pi?1:CALLcl 
160 2ar&-?respt:ari?l-respi?l:CALLclea 
170 2ar$-?hdlpi:ari?l-hdlpi?l:CALLclea 
180 2ar&-?hd2pi:ari?l-hd2pi?l:CALLclea 
190 ?tpl$-opdl&MOD256:tp18?1-opdliDIV2 


200 PROCenter (*Multiplicand") 
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210 ?tpl&-opd2$M0D256 : tp1$?1-opd2$DIV2 
56 

220 PROCenter ("Multiplier") 

230 CALLmult 

240 PROCdisplay(*Product *,hd2p$) 

250 END 

260 : 

1000 DEF PROCinit 

1010 DIMbu$ maxt,opdl$ bytest,opd2% byt 
es%,res% bytes$,hdl& bytes$,hd2$ bytes’ 
1020 DIMmc% &240 


resp&-&84:cnt$-&86 
1090 ar$-&88:rev&-&8A 
1100 aux&-i ВЕ 
1110 су%-890:һ21р%-592 
1120 hd2p&-&94 

1130 oswrch-&FFEE 

1140 ?opdlp&-opdl$MOD256 :opdlp$?l-opdl$ 
DIV256 

1150 ?opd2pt-opd2$MOD256 :opd2p$?1-opd2& 
DIV256 

1160 ?bup&-bu$MOD256 :bup$?1-bu$DIV256 
1170 ?resp&-restMOD256:respi?l-res&DIV2 


1180 ?mz&-bytest3MOD256 :mz$?1-bytestDIV2 
1190 ?hdlp&-hdl$MOD256:hdlp$?l-hdl&DIV2 
1200 ?hd2p$-hd23MOD256: hd2p$? 1-hd2$DIV2 
1210 ENDPROC 

1230 DEF PROCenter (N$) 

1240 PRINT'*Enter "N$" as DEC digits;'" 


* MS Digit first & end with Return* 
-?bups :ar$?1-bup$?1 :CALLclear 


1270 REPEAT Li 

1280 A1$-GET-48:IFA1$-791$-1$-1:VDU127: 
60701280 

1290 IFAl$«10ANDAl$»-lPRINT;A1$; :1$?bu& 
=А1% 


1300 1%=1%+1 

1310 UNTILIS-maxtORA1$--35 

1320 IFI$-1GOTOl30 

1330 ?len&-(18-2)M0D256:1en$?1- (18-2)DI 
ү256 

1340 ?bup&-bu$MOD256 bupt?1-bu$DIV256 
1350 CALLinpt 

1360 ENDPROC 

1370 : 

1380 DEF PROCdisplay (46,7%) 

1390 IFN$<>""PRINT'N$" = "' 

1400 ?ar&-?T$:ar$?1-T$21 

1410 CALLdisp 

1420 PRINT’ 

1430 ENDPROC 

1440 : 

1450 DEF PROCassemble 

1460 FORpasst-ÜTO2STEP2 

1470 P&-mc$:[OPTpasst 

1480 .inpt LDY#0 

1490 LDAlen$:STAcnt& 

1500 LDAlen$«1:STAcnté«l 

1510 CLC:LDAbupi :ADCcnti:STAbupt 

1520 LDAbup&«1:ADCcnt$«1:STAbupé«l 
1530 .iloop LDA(bup$),Y:STA(tpl$),Y 
1540 SEC:LDAcnt$ :SBC#1:STAcnt$ 

1550 LDAcnt$+1:SBC#0:STAcntt+1 

1560 BCCiexit 

1570 SEC:LDAbup$ :SBC#1:STAbupt 

1580 LDAbupt+1:SBC#0 :STAbupt+1 

1590 LDA(bup$),Y 

1600 ASLA:ASLA:ASLA:ASLA 

1610 ORA(tpl$), 'A(tpl$),Y 

1620 CLC:LDAtpl$:ADCBl:STAtpl$ 

1630 LDAtp18+1:ADC#0 :STAtp1%+1 

1640 SBC:LDAbup$:SBC#1 :STAbup$ 

1650 LOAbup$+1:SBC#0 :STAbup$+1 

1660 SBC:LDAcnt$:SBC#1:STAcnt$ 

1670 LDAcnt$+1:SBC#0:STAcntt+1 

1680 BCSiloop 

1690 .iexit RTS 

1700 : 

1710 .disp LDY80:LDX80 

1720 LDAmz$:STAcnt$:LDAmz&«1:STAcnti«l 
1730 .brd CLC:LDAar&:ADCcnt$:STAtpli:ST 
Atp2$ 

1740 LDRar&«l:ADCcntiel:STAtpli«l:STAtp 
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2841 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
У 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


LDA(tp18) , ¥:LSRA:LSRA:LSRA:LSRA 
CPX#1:BEQpnt 
CMP#0:BBQNxt1:LDX#1 

-pnt CLC:ADC#48 :JSRoswrch 
.nxtl LDA(tp28) ,¥:AND#6F 
CPX#1:BEQpnt2 

CMPRO:BEQrpt :10х#1 

.pnt2 CLC:ADC#48:JSRoswrch 
.rpt SEC:LDAcnti:SBCKl:STAcnté 
LDAcnt&«1:SBCÉ0:STAcnt$«1 
BITCnt$«1:BPUbrd 

TXA:BNEdexit 

LDA#48 :JSRoswrch 

.dexit RTS 


clear LDY#0 

LDAm2$:STAcnt$ :LDAm2$+1:STAcnt $41 
„Бес CLC:LDAar$ :ADCcnt$: STAtp28 
1рАаг%+1:АйСспє%+1:5ТАєр2%+1 
LDA&0:STA(tp23) ,Y 
SEC:LDAcnt$:SBCÉ1:STAcnté 
LDAcnt$«1":SBCÉ0:STAcnt$«l 
BITcnt$«1:BPLbrc 

RTS 


1990 : 


.mult LDY80 

STYtp3%:ST/tp3%+1 

.mbc STYcnt% 

.mdbc 5ТҮгеу% 
CLC:LDAopdlpš:ADCtp3$:STAtp1$ 
LDAopdlpt«l:ADCtp3$«1:STAtplt«l 
LDA(tpli),Y 

LDXcnt$:BPLndbc2 
LSRA:LSRA:LSRA:LSRA 

.mdbc2 ANDÉ&P:BEQsdg:STAauxi 
.adlp STvy$:STvy$+1 
1рёп2%:5ТАх%:ШАл:%+1:5ТАх%+1:5ТҮс 


„inm CLC:LDAopd2p%:ADCy$ :STAtp1% 
LDAopd2p%+1:ADCy%+1:STAtp1ė+1 
CLC:LDAhd1pt :ADCy%:STAtp2% 
LDAhdlpè+1:ADCy%+1:STAtp2%+1 

SED 

CLC:LDAcyS:BEQconl 

SEC 


conl LDA(tpl$),Y:ADC(tp2$),Y:STA( 


tp23), Y 

2200 CLD 

2210 STYcyi:BCCcon2 

2220 1рА#1:5ТАсу% 

2230 .con2 CLC:LDAy$:ADCEl:STAyS 
2240 LDAy$«1:ADCÉO:STAyS«l 

2250 SEC:LDAx:SBCHl:STAxi 

2260 1рАх%+1:5ВС#0:5ТАх%+1 

2270 ORAx&:BNEinm 

2280 LDAcy$:BEQdcnd: INCrev& 

2290 „спа DECauxt:ENEadlp 

2300 .sdg LDA(hdlpi),Y:ANDÉ&F 

2310 LDXcnt$:BPLsdl 

2320 ASLA:ASLA:ASLA:ASLA 

2330 .sdl РНА 

2340 CLC:LDAhd2p$:ADCtp3$ :STAtp1$ 
2350 LDAhd2p%+1:ADCtp3%$+1:STAtpl%+1 
2360 PLA:ORA(tpl$) Y:STA(tpl$),Y 
2370 LDAmz%:STAy%:LDAmz%+1:STAy%+1 
2380 .shb SEC:LDAYS:SBCHl:STAyS 
2390 1рАу%+1:5ВС#0:5ТАу%+1 

2400 CLC:LDAhdlpi:ADCyS:STAtpl$ 
2410 LDAhdlp&«l:ADCyS«1:STAtpl$«l 
2420 LDA(tpl$) ,Y: PHA:ANDÉGFÜ 

2430 LSRrevi:ORArev$ 

2440 RORA:RORA:RORA:RORA 

2450 STA(tpl&),Y:PLA:ANDÉ&F:STArevi 
2460 LDAy$ :ORAy$«1: BNEshb. 

2470 DECcnt$:LDAcnt$:CMPÉ&FF: BNEnojmp 
2480 JMPmdbc 

2490 .nojmp CLC:LDAtp3$:ADCÉl:STAtp3& 
2500 LDAtp3$«1:ADCR0:STAtp3$«1 
2510 SEC:LDAtp3&:SBOmzà 

2520 LDAtp3$«1:SBCnz$«1:BCSmexit 
2530 JMPubc 

2540 .mexit RTS 

2550 ]:NEXT:ENDPROC 


Listing2 


10 REM Program DIVlarg 

20 REM Version В.4.2с 

30 REM Author Harry W Fensom 

40 REM BEEBUG July 1993 

50 REM Program subject to copyright 
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$0 

100 INPUT"Maximum no. of digits "mi:ma 
xamt+2 :bytest=maxt/2 

110 PROCinit 

120 PROCassenble 

130 cLs 

140 ?ar&-?opdlpi:ar$21-opdlpi?1:CALLcl 
ear 

150 ?аг%=?ор42р%:аг%?1=ора2р%?1:САШс1 
ear 

160 ?ar&-2respi:ari?l-respi?1:CALLClea 


170 ?ar$-?remp$:ar$?1-remp$?l:CALLclea 
180 ?ar&-?partp$:ar$?l-partp$?l:CALLCl 
190 ?tpi$-opdl$MOD256:tpl$?1-opdl$DIV2 


200 PROCenter ("Dividend") 
210 ?ері%-ор42%М00256:Ер1821-ор42%01/2 


220 PROCenter (*Divisor") 

230 erri-USRdiv 

240 IFerrt>0 PRINT''"Division by zero! 
*:END 

250 PROCdisplay ("Quotient *,respt) 

260 PROCdisplay ("Remainder ",rempt) 

270 END 

280: 

1000 DEF PROCinit 

1010 DIMbu$ пах%,ор41% bytes&,opd2$ byt 
е3%,гез% bytest,remt bytest,partt bytes% 
1020 DIMnc& &2CÜ:opdlpt-&70 

1030 opd2p&-&72:bupt-&74 

1040 tpl$-&7 

1050 tp3$-&7i 

1060 
1070 
1080 
1090 
1100 
1110 rempt-&92:partp$-&94 

1120 oswrch-&FFEE 

1130 ?opdipi-opdl$MOD256 :opd1p$?1=opd1$ 
DIV256 

1140 ?opd2p$-opd23MOD256:opd2p$?1-opd2$ 


Рт атата, 

1160 ?гезрё-гез%М00256:гезр%?1=геѕ%0Ту2 
56 

1170 ?гепр%=геп%М00256 :remp$?1-rem$DIV2 
56 

1180 ?mz&-bytestMOD256 :mz 21 -bytessDIV2 
56 

1190 ?partp&-part$MOD256:partp$&?l-part$ 
DIV256 

1200 ENDPROC 

1210 : 

1220 DEF PROCenter (NS) 

1230 PRINT'"Enter "NS" as max ";m$;" DE 
C digits;*'* MS Digit first & end with R 
eturn* 

1240 ?ar&-?bupi:art?l-bup$?l:CALLClear 

1250 1%-0 

1260 REPEAT 

1270 Al&-GET-48:IFA1$-791$-18-1:VDU127: 
(60701270 

1280 IFAl&e10ANDAI$»-lPRINT;Al$; :18?bus 


1290 1%=1%+1 

1300 UNTILI$-maxtORAl&--35 

1310 IFI$-1G0TO130 

1320 ?len$-(1$-2)MOD256:1en$?1- (18-2)DI 


1330 ?bupi-busHOD256 :bupk?1-butDIV256 
1340 CALLinpt 

1350 ENDPROC 

1360 : 

1370 DEF PROCdisplay (15,7%) 

1380 IFNS<>"*PRINT'NS* = *' 

1390 2ari-?T$:ar$21-Tb?l 

1400 CALLdisp 

1410 PRINT’ 

1420 ENDPROC 

1430 : 

1440 DEF PROCassemble 

1450 FORpasst-ÜTO2STEP2 

1460 Р%=пс%: [0РТраѕ5% 

1470 .inpt LDY80 

1480 LDAlen$:STAcntt 

1490 LDAlen$«l:STAcnté«l 

1500 CLC:LDAbupt:ADCcnt$:STAbupt 
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1510 LDAbupt«l:ADCcnté«l:STAbupi«l 
1520 .iloop LDA(bupS),Y:STA(tpl$),Y 
1530 SEC:LDAcnt$:SBCHl:STACnt$ 

1540 LDAcnt %+1 :SBC#0 :STAcnt$+1 

1550 BCCiexit 

1560 SEC:LDAbupt:SBCÉL:STAbups 

1570 LDAbup$+1 :SBC#0 :STAbup$+1 

1580 LDA(bupt),Y 

1590 ASLA:ASLA:ASLA:ASLA 

1600 ORA(tpl8) ,¥:STA(tp18), Y 

1610 CLC:LDAtp]$:ADCRL:STAtplt 

1620 LDAtplt«l:ADCEO:STAtplé«l 

1630 SEC:LDAbupt:SBC#1 :STAbup$ 

1640 LDAbupt«1:SBCR0:STAbups«l 

1650 SEC:LDAcnti:SECEl:STAcntt 

1660 LDAcnt$+1:SBC#0:STAcntt+1 

1670 BCSiloop 

1680 .iexit RTS 

1690 : 

1700 .disp LDY#0:LDX#0 

1710 LDAm2$:STAcnt ®:LDAm2t+1:STAcnt $+1 
1720 .brd CLC:LDAaré:ADCont:STAtp1¢:ST 
рё 

1730 LDAar$+1:ADCcnt$+1:STAtpl8+1:STAtp 
21 

1740 LDA(tp18) , Y:LSRA:LSRA:LSRA:LSRA 
1750 CPX&l:BEQpnt 

1760 CMPšD:BEQnxtl1:LDK1 

1770 .pnt CLC:ADC#48:JSRoswrch 

1780 .nxtl LDA(tp2$) ‚У:АМОВЕР 

1790 CPX&l:BEQpnt2 

1800 CuPiQ:BEQrpt:LDXél 

1810 .pnt2 CLC:ADCÉdB:JSRoswrch 

1820 .rpt SEC:LDAcnt$:SBC#1:STAcnt® 
1830 LDAcnt$«1:SBCHO:STAcnt$«l 

1840 BITontt«l:BPLbrd 

1850 TXA:BNEdexit 

1860 LDA#48 :JSRoswrch 

1870 .dexit RTS 

1880 : 

1890 .clear LDYà0 

1900 LDAmz$ :STAcnt$:LDAmz$+1:STAcnt+1 
1910 .brc CLC:LDhar$:ADCcnt$:STAtp2s 
1920 LDAar$+1:ADCcnt$+1:STAtp2%+L 

1930 LDA&0:STA(tp28) ‚у 

1940 SEC:LDAcnt $:SBC#1:STAcnt® 


1950 LDAcnt$+1":SBC#0:STAcnt$+1 

1960 BITcnt$«1:BPLbrc 

1970 RTS 

1980 : 

1990 .div LDY&0 

2000 STYaux& 

2010 LDAmz$:STAcnt$ :LDAmz$«1 :STAcnt$«1 
2020 ASLcnt&:ROLCnt$«l:INCcnt$:BNECkz 
2030 INCcnt$«1 

2040 .ckz LDAmz$ :STAx$ : LDAmz%+1;STAx+1 
2050 STYy$:STYyS 1 

2060 .dz CLC:LDAopd2p$ :ADCy$ :STAtp1t 
2070 LDAopd2p$+1 :ADCy$+1:STAtp1$+1 
2080 LDAcy$:ORA(tp18), Y:STAcy$ 

2090 INCy:BNEdn1: INCy$+1 

2100 .dnl LDAx$:BNEdn2:DECx$«l 

2110 .dn2 DECx$:LDAx&:ORAx&«1:BNEdz 
2120 LDAcy$:CMP#0:BNEdbc 

2130 JMPdverr 

2140 .dbc LDAopdlpt+1:STAy%+1:LDAopdlpt 
E 

2150 JSRrv 

2160 DECcnt&:BNErdb 

2170 LDAcntt«1:BNEnofin 

2180 JMPdvexit 

2190 .nofin DECcnt$+1 

2200 .rdb CLC:LDAremp$+1:STAy$+1:LDArem 
pi:Smys 

2210 JSRrv 

2220 STYaux& 

2230 .sbc 5ТҮу%:5ТҮу%+1 

2240 LDAmz$:STAx$:LDAmz&«l:STAx$«1 
2250 LDAR1:STACyS 

2260 .ind CLC:LDAremp$ :ADCy$:STAtp1% 
2270 1рАгепр%+1:АРСу%+1:$ТАЕр1%+1 
2280 CLC:LDAopd2ps : ADC’: STAtp2% 

2290 LDAopd2p%+1:ADCy%+1:STAtp2%+1 
2300 CLC:LDApartp$:ADCy$:STAtp3$ 

2310 LDApartp%+1:ADCy%+1:STAtp3%$+1 
2320 LDAcyt:BEQcy0:SEC 

2330 .су0 STYcy% 

2340 SED 

2350 LDA(tpl$), Y:SBC(tp28) , ¥:STA(tp38), 
Y 

2360 STYcys:BCCCCl:LDARl:STACyS 


2370 .ccl INCyS:BNEdn3:INCyS4l 
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2380 .dn3 LDAxi:BNEdnd:DECx$ l 
2390 .dn4 DECKS 

2400 1рАх%:ОВАх$+1 

2410 CLD 

2420 BNEind 

2430 LDAcy® :CMP#1 :BEQnoloop 

2440 JMPdbc 

2450 .noloop CLC:LDhauxt:ADCEE10:STAaux 
H 

2460 LDAremp%:STAx%:LDAremp%+1:STAxt+1 

2470 LDApartp’ :STAremp’ : LDApartp$+1 :STA 
rempt+1 

2480 LDAxt:STApartpt :LDAxé+1:STApartpt+ 
1 


2570 ШрАспе%+1:5ВС#0:5ТАспЕ®+1 
2580 BITcnt$«l:BPLdbcd 

2590 RTS 

2600 .rv LDAyt+1:STArevi+1:LDAy$:STArev 
% 

2610 LDAmz$:STAxS:LDAmz$4 1 :STAx%+1 

2620 STYy%:STYy%+1 

2630 .shd CLC:LDArev$:ADCy$:STAtp1% 
2640 LDArev8+1:ADCy#+1:STAtp1¥+1 

2650 LDA(tp18), Y:PHA:ANDR&F 

2660 ASLaux$:ORMauxé 

2670 ROLA:ROLA:ROLA:ROLA 

2680 STA(tpl8),Y:PLA:ANDÉ&FO :STAauxt 
2690 INCy%:BNEdn5:INCy%+1 


2490 JMPsbc 2700 .dnS LDAx$:BNEdn6:DECx%+1 
2500 .dvexit:LDAmz’:STAcnt’ :LDAmz$+1:ST 2710 .dn6 DECxt 
Аспен 2720 LDAx®:ORAx%+1:BNEshd 
2510 .dbcd CLC:LDAopdlp&:ADCcnti:STAtpl 2730 RTS 
% 2740 : 
2520 LDAopdip&«l:ADConti«l:STAtpli«l 2750 .dverr LDA#L 
2530 CLC:LDArespt :ADCcnt: STAtp2t 2760 RTS 
2540 LDArespt+1 :ADCcnt$+1:STAtp2&+1 2710 ]:NEXT:ENDPROC 
2550 LDA(tp18) ,Y:STA(tp28) ‚у 2780 : 
2560 SEC:LDAcnt®:SBC#1:STAcnt® 2790 END 8 
ore Hide and ued from page 40) 
2240 ENDPROC 2450 : 
2250: 2460 REM ROOM CONNECTIONS 
2260 DEF PROCstartnewgame 2470 DATA2,4,7,0,0 
227) Reed к 2480 DATAL,3,4,6,0 
= 2490 DATA2,10,6,0,0 
2290 HAZARDS (ХЗ) -RND(15)41 2500 DATA7, 1,2,5,8 
2300 Y%=-1:REPEAT:Y%=-Y%,1 2510 DATA, 6,9, 8,0 
нш HAZARDS (ҮЗ) =HAZARDS (X$) OR Y 2520 DATA5,2,3,10,9 
kt 2530 DATAL, 4,11, 
2320 IF HAZARD&(Y$)-HAZARD$(X) GOTO 22 250b Fin E T i 0 
4 ,5,12,11, 
2550 ПАТА5,6,13,12,0 
<р ыы EIE 
DAS LES CR IUE 2570 DATA8,12,15,14,7 
ШТ 2580 DATAL1, 8,9, 13,0 
онан bao | т ОЕ 
2 2600 ПАТАТ, 11,15,0,0 
PRE 111,15, 0, 
PUR 2610 DerA14, 11,13,16,0 
2390 DEF PROChowhard 2620 DATAIS, 13,10,0,0 
2400 CLS 4 2630 : š 
2410 PRINT"How difficult do you want*'* 2640 DEF PROCinfo 
the game to be?*'' 2650 FOR X=1T0 5 
2420 ТМРОТ" (1,2 OR 3) ";DIFF$ 2660 PRINT HAZARD$(X); 
2430 IF DIFF%<1 OR DIFF&»3 GOTO 2420 2670 NEXT 
2440 ENDPROC 2680 ENDPROC B 


46 


Beebug July 1993 


Mr Toad's Machine Code Corner 


Mr Toad thinks it's about time he amswered some questions. 


Happy July, frog fanciers. The old 
column has been bringing in some 
interesting letters lately, and Mr T has 
been corresponding with Tim Parsons of 
Flitwick, Arthur Adams of Upminster 
and James Sugden of Cleckheaton. The 
last two gentlemen are well past 
retirement age; both are deeply into 
computing and 6502 programming in 
particular - who says us old ‘uns are past 
it? You certainly can teach an old frog 
new tricks. However, let's look at a 
query from Tim Parsons. 


In the nicest possible way, Tim was really 
telling me off - and rightly so - for 
sprinkling Master-only instructions so 
carelessly around my listings. I promised 
him that in future I would be more 
thoughtful; not everyone has a Master, 
and all I need to do is run my own 
"Master Blaster’ ROM over my assembly 
texts. Tim asked whether putting the 
65С02 chip into his old “В” would enable 
it to cope with the new instructions. 


Well, yes, in a way it would - it would 
enable the “В” to run assembled code 
containing the new opcodes, provided 
that the programs were written entirely 
legally. The trouble is, in BEEBUG you're 
not dealing with assembled code; 
programs are normally Basic assembler 
listings. The Basic 2 ROM of the 'B' has 
never heard of the new instructions and 
doesn't know that you've supercharged 
the old heap, so it will come up with an 
error message every time it meets a new 
instruction. You can get round this by 
assembling the new opcodes ‘by hand’ - 
each time the listing says PHX, you type 
in EQUB &DA; when it says INA you 
type EQUB &1A. 


The trouble is, not all instructions are one 


byte only, some need addresses. STZ, for 
example: STZ &12AB would become 
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EQUB &9C:EQUB &AB:EQUB &12, 
because addresses are stored LSB-MSB (or 
posterior-about-face, to put it in technical 
terms.) Having made that point, what 
you'd really write is EQUB &9C:EQUW 
&12AB, but it's still a pain. Zero-page STZ 
is opcode &64, not &9C, so STZ &FF 
would be EQUB &64:EQUB &FF or you 
could waste a byte and put EQUB 
&9C:EQUW &FF. STZ &12AB,X would be 
EQUB &9E:EQUW &12АВ and STZ 
&80,Х becomes EQUB &74:EQUB 6:80. 


The new addressing mode, ‘indirect zero 
page' creates similar problems and BRA 
(Mr T's pet hate, as you know) involves 
calculating the jump displacement. 
What's worse, it's not usually addresses 
you're dealing with in assembler listings, 
but labels. You'd have to ask the Beeb for 
the address corresponding to each label - 
PRINT -toadLoop - and then you'd need 
to do them all again if, when debugging, 
you found that a typing error had made 
them wrong by even a single byte. And, 
as I say, you'd still have no assurance 
that the program wouldn't fail even then 
because of other differences between the 
“В” and the Master. 


Gentle reader, please note that here we're 
talking about getting the ‘naughty’ 
instructions to run on a MODIFIED BBC 
B, not about replacing them with other 
instructions which exist in the old set, so 
as to make the code run on a normal В’, 
which is what we were looking at a few 
months back. 


Neither strategy is really a lot of fun; you 
might just as well buy a Master and get 
all the other goodies as well; View 3.0, 
ViewSheet, standard Sideways RAM and 
so on. This is essentially what I told Tim, 
only to find that he'd already come to the 
same conclusion himself and bought a 
second-hand Master from Beebug. 
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In fact, he got a Turbo. Lucky man 
because, although having the co-pro 
running all the time can create some 
annoying problems with certain pieces of 
software, it gives you a lot more memory 
with View, and - às long as you load it in 
from disc each time - with Hibasic. The 
extra speed is also very useful with 
ViewSheet and, often, with Basic, although 
some Basic programs have bits which run 
TOO fast on the co-processor (Basic 
programmers - please think of this and use 
TIME rather than FOR NEXT when 
writing delay loops). Anyway, I digress. 
(As usual. Ed.) Tim was now wondering 
why you automatically get extra memory 
with View if the co-processor is active, but 
not with ViewSheet, Basic etc. Being one of 
the idlest life forms іп the Galaxy, I'll just 
repeat my letter to Tim, even if Mr 
Williams does knock 10% off my 
honourarium. (Worse - I'll knock off 50 
pence! Ed.) 


Firstly, let's take a good look at what the 
so-called ‘Tube’ really is. On the Turbo 
board you've got a faster processor, the 
65C12, plus 64K of RAM. It's virtually a 
second computer, in the sense that code 
running on the new chip, in the new 
RAM, is entirely independent of the ‘old’ 
hardware - at least until it wants input 
from the keyboard or needs to output to 
the screen. The existing setup looks after 
the keyboard, filing, the screen and so on, 
which gives another advantage speed- 
wise, since the running of the code isn’t 
constantly halted while the processor 
deals with interrupts to handle these 
things. The Turbo, therefore, is more than 
twice as fast at running machine code. 


The word ‘Tube’ is often wrongly used to 
refer to the Turbo board, but actually it’s 
the chip which transfers data between 
the two boards: an asynchronous link, 
meaning that the Turbo board is not only 
running at twice the speed of the main 
board, but that the correspondence may 
not be perfectly exact - at any given 
moment the two boards may not be at 
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precisely the same state of their clock 
cycles. What's more, the Turbo is only 
one of a range of co-processors that 
might be fitted; there's the 512, of course, 
or the Z80. These non-6502 boards run 
their own machine-code, so the Tube is 
designed just to transfer single bytes, 
regardless of their meaning and of any 
disparity in the clock-rates. The Tube’s 
data and status registers are mapped in 
the host (i.e. main computer) memory 
map from &FEE0 to «ЕЕЕ? - in our old 
friend SHEILA - and you can use various 
OSBYTES to read and write bytes across 
the Tube, or else write your own ‘MOS’ 
code to deal directly with the Tube 
registers, which involves some tricky 
timing, working literally with millionths 
of a second. Mr T used the latter method 
for the memory-editor in the Toad ROM 
90, purely for the fun of it. I won't even 
attempt to give details here; you need а 
manual such as Watford's ‘Advanced 
Reference Manual for the BBC Master' or 
David Atherton's excellent 'Master 
Operating System’ (Dabs Press). Beebug 
stocks both. 


The Turbo board gives not only more 
speed, but much more RAM: since most 
of the MOS is on the host board, the 
space from &8000 on up is full of RAM, 
most of it free for the user. There's also a 
gain of a few pages at the bottom end of 
RAM, since the Turbo board needs less 
workspace there. 


What happens when a Turbo 
*CONFIGUREd TUBE starts up with, say, 
Basic or ViewSheet? The MOS copies the 
Basic or ViewSheet ROM across the Tube, 
one byte аға time (but it's very fast), and 
it starts running. You gain a bit of extra 
memory at the low end of RAM; under 
Basic, for example, PAGE is at &800 
rather than &Е00, but you gain no 
memory at the top end. Basic, etc. are 
assembled to run between &8000 and 
&BFFF; if you wanted them to run 
elsewhere, you'd need a version in which 
all the JMPs and JSRs which refer to 
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addresses inside the ROM were 
recalculated to take account of the ROM 
now being at a new address. If you had 
the assembly text of Basic, you'd just 
alter P% to the new start - but you don't 
have the assembly text. So, ROMs like 
Basic, when copied across the Tube to the 
Turbo board, must be copied to &8000 on 
that board. They take up 16k of RAM 
there, but, as we have seen, above that 
16К there is a lovely, juicy stretch of 
almost another 16k of free RAM, in the 
area where the MOS is on the host 
board... and you can't use it. Basic, View, 
etc аге set up only to use RAM below 
&8000, they can't work with the RAM 
above themselves, from &С000 on up. 


What we need, then, is a version of our 
ROM which not only gets copied across 
the Tube, but gets copied to a much 
higher address, leaving all the free RAM 
below it - but that version must have its 
internal JMP and JSR addresses altered 
automatically. Only View is made to do 
this: it is copied faithfully to &8000 on 


Magsca 


An updated version of Magsc 


Comprehensive Maga: 
the BBC Micro and the Mast 


the Turbo board, then most of it gets 
recopied up higher with the addresses 
recalculated, and the ‘ghost’ copy at 
&8000 is redundant and can be 
overwritten. Thus View offers 48,326 free 
bytes instead of 28,926. To do the same 
with Basic, you need to load in HIBASIC 
from the disc which comes with the 
Turbo board; this is just Basic assembled 
with P% set to &B800, though the MOS 
also has to be made to call the new 
address. Under the new MOS chip this is 
automatic with Basic as well as View. 


That's what I wrote to Tim Parsons, more 
or less, and he was kind enough to state 
that for once I didn't leave him more 
confused than he was before. I wonder... 
That's it for this month, mammal types 
Don't forget that Beebug members 
traditionally mungle their weebles on the 
27th; Mr T will be asking how you got on 
in the next issue, as well as publishing а 
listing which anti-aliases the contours of 
your local Bishop's gaiters. Until then, 
gentle reader, I bid thee farewell. B 


n, which contains tbe complete indexes to all BEEBUG 


magazines from Volume 1 Issue 1 to Volume 11 
Magscan allows you to locate instantly all references to any chosen 
subject mentioned anywhere in the 110 issues of BEEBUG magazine 
to date 1 
Just type in one or two descriptive words (using AND/OR logic), and 
you can find any article or program you need, together with a brief 
description and reference to the volume; issue and р; 
You can also perform a search by article type and/or volume number 


The Magscan database can be easily updated to include future 
magazines. Annual updates are available from BEEBUG for existing 


Magscan users 


Some of tbe features Magscan offers include: 
full access to all BEEBUG magazines 
% rapid keyword search 
@ flexible search by volume number, article type 


and up to two keywords м; 


$ keyword entry with selectable AND/OR logic = 
Ф extensive on-screen help 

+ hard copy option м. 
@ сазіу updatable to include future magazines 

Ф yearly updates available from BEEBLC 

RISC De: pments Ltd, 117 Hatfield Во: 


UN to continue 


apscan with disc and manual £9.95+pep 


K codes: 00054 sc 40 track DFS 
00063  5.25'disc 80 track ОРУ 
14574 35 ADFS disc 

scan update &4.75«pcp 


"disc 40 track DFS 
disc 80 track DFS 
ADES disc 
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The number one 
subscription 
magazine for the 
Archimedes 


RISC User, probably the most popular subscription magazine 
for the Archimedes, offers all the information you need as an 
Archimedes user. In every issue of RISC User you will find a 
wealth of articles and programs with professionally written 
reviews, lively news, help and advice for beginners and 
experienced users, and items of home entertainment. 

The BS size of RISC User allows a sophisticated design, big 
colour illustrations and pages full of information, and yet is 
still а convenient size to assemble into an easy-to-use reference 
library. Altogether, in its six years of existence, RISC User 
has established a reputation for a professional magazine with 
accurate, objective and informed articles of real practical use 
to all users of Acorn's range of RISC computers. 


GROUP SURVEY - 
WORD PROCESSORS 
A critical look at the major players in the word 
processor market. 
JUST A PAGE: PROGRAMS TO TYPE 
AND USE 
A new column offering this month a Mode Changer, 
Tiny Catalogues and CMOS RAM Procedures, 
SHERSTON'S BADGER TRAILS 
A look at the award winning education package - a 
multi-media study of badgers, accompanied by a 
short video. 
THREE IMAGE CD'S: 
PHOTO-QUALITY CLIP ART 
A comparison review of three photo-libraries on CD discs. 
WIMP TOPICS 
A major series aimed at readers interested in 
Wimp programs and Wimp programming. Each 
article looks at aspects of a particular topic. 
WRITE-BACK 
The readers' section of RISC User for comment, 
Ешш help, information - a magazine version of a 
ТЕ | bulletin board. 
PURPA mm. ee М mro THE ARC 

TTE а A regular series for beginners. 

: d TECHNICAL QUERIES 

A column which answers your technical queries. 
SUBSCRIPTION DETAILS ТИЕ DOS SURMVIMAL GUIDE 
As a member ОЁ BEEBUG уоп mey subscribe so À series of articles on how to use the PC Emulator. 
RISC User for the reduced rate of £18.40 (a PD SOFTWARE COLUMN: SELECT 
saving of £1.50 on the normal subscription rate). AND COLLECT 
Overseas subscription rates are as follows: A look at the best of Public Domain software. 
£27.50 Europe and Eire, £33.50 Middle East, SOLVE THE CUBE 
£36.50 Americas & Africa, £39.50 Elsewhere А computer version of the famous Rubic's cube. 


HINTS, HINTS, HINTS, HINTS, HINTS, 


Please keep sending in any tips for all BBC and 
Master computers. Remember, if your hint gets 
published, there's money in it! 


Changing Colours in Mode 7 

David Robinson 

For those of you who are mode 7 addicts, but are 
frustrated by its inability to change the overall 
display foreground and background colours, 
here's a quick fix. 


Normally, when changing colour or creating 
other effects, the display control characters that 
are 'printed' to the screen only affect one line of 
text. 


The following Basic program overcomes this 
limitation by setting up foreground and 
background colours that are retained when the 
screen is scrolled. 


10 (12 


The program works by printing colour control 
characters down the left-hand edge of the 
screen and then defining a text window which 
avoids these positions to prevent them being 
overwritten. Line 100 sets the foreground and 
background colours, and currently defines a 
blue background with cyan text. To change this, 
substitute any of the colours defined in lines 10 
to 70 for blu$ and cya$. Line 80 sets bkg$ to the 
‘new background’ code, not a colour. 
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Testing Osbyte Routines 

Jonathan Temple 

As many OSBYTE routines are not implemented 
as *FX commands, it is not always easy to test 
them from Basic and see their results. When 
executed, the following function key definition 
will prompt you to enter the values for A (the 
OSBYTE call number), and the X and Y registers. 
It will then call the specified OSBYTE routine and 
display the results. 


" MÀ"X- "XR" Y-" YR  R-USRRFFFA : 


Wordwise Plus and VDU Codes 
Wordwise Plus and BBC Basic share many 
common features, including the Basic statement 
VDU. The VDU codes can be strung together in 
the normal way and used to print out 
characters on the screen that could not 
otherwise be produced. Try the following 
segment program: 
Cus 


This will clear the screen and print a double 
height banner in yellow on a red background, 


VDU 31 can be used to good effect in a similar 
manner to position text on the screen, VDU 31 
is equivalent to the Basic TAB(x,y). For 
example: 

cus 


T ЕМ END 

However, be very careful not to execute a VDU 22 
(select screen mode) command from Wordwise 
Plus. This can cause all your text and programs to 
be lost. 
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Personal Ads 


BEEBUG members may advertise unwanted computer hardware and software through personal ads 
including 'wanta') in BEEBUG. These are completely free of charge but please keep your ad as short as 


possible, Although we will try to include all ads received, we reserve the right to edit or reject any if 
necessary. Апу ads which cannot be accommodated in one issue will be held over to the next, so please 

advise ин if you do not wish us to do this. We will accept adverts for software, but prospective purchasers 
should ensure that they айшауа receive original copies including documentation to avoid any abuse of 


this facility. 


We also accept members’ Business Ads at the rate of 40р per word (inclusive of VAT) and these will be 
featured separately. Please send all ads (personal and business) to MEMBERS' ADS, BEEBUG, 
117 Hatfield Road, St. Albans, Hert ALI 448. 


WANTED: Viglen PC style case for M128 Tel 
3064 


WANTED: The Advanced Basic ROM User 
Guide for the BBC Micro (by Colin Pharo). Те. 
172812961 daytime or (922) 225383 eves. 


WANTED: Instructions on the Replay ROM. Te 
(84) 82229. 


Numerous items of BBC B software, Hardware 
and Firmware for sale. Tel 051-228 7136 after 
pm 


WANTED: Turbo internal 650 2nd processor 
for Master, Tel 1-884 (891. 


Mater Sar cage €15, Overview puit S0, 
Contex Master Bank Manager with business 
ite, Gemini Мину Manage (BBC. 
Maier Mex Ore 10, Pay f "T Ain Sum] 
Repton 2, Citadel, Barbarian, Exchange Locator, 
Dith star, BEEBUG Fier, Baikit, Bane Bower 
ViewChartall & ech, Spelimaster ROM CU, View 
Табам Guide c/w di £10 Miracle Modem and 
Command ROM £70, Master Turbo and 
Alternative MOS £130, 20 unformatted DSDD 
‘everable dises c/w labels, tabs £10, Sharp МХА 
‘wean inte E10 Tel (0268) 


BBC B 2 Watford DSDD drives all boued. ROM 
expansion board, Stands ROMS ete. as new 
condition fully working order £150. Tel. (0245) 
4835 home. 


Master 512, also Turbo SP eard, 
combination 515/35 floppy drives, 
View, Overview package, Wordwise Plus, 
Interbase, DTP, Ап, Graphies, FC Software, 
Canon РЇЇ printer, wil sit, Morey міне 
айры, Pace mc la of books, 

тарт al EE fl tf BEEBLC mags 
УЫЗ Мат o date. Tel (0932) 85221 


BBC B issue 7, DES twin 41/80 disc dies colour. 
monitor with stand, Joystick, sideways and 
shadow RAM boards (Watford), wide range of 
ROMs for word processing, communications and 
utilities, extensive collection of software, plus. 
manuals, mostly disc based, but some tapes 
ЖЕШС hd Die Car mapa pe be 
рама Bae a ones та. 

) 159851 Would prefer to sell s a complete. 
package 


ВЕЕВИС Magic Modem, BEEBUC Command 
ROM, Comms software £45 o n.o. Тө. (454) 
29668 afer брт а 


Master Compact c/w Acorn mono monitor, 
needs new EPROM hence £A, Master Reference 
Manuals 1&2 £10, Hyperdriver ROM £3 Tel 
07) 9637 eves. 


WANTED: Apex ROM/RAM board for BBC 
micro made by Altair Electronics, top price paid. 
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ой dius alone мос kelp, dena 
pe РЯ 


WANTED: Sis Me RAM көгі for СВ 
Si etos man d te xd 

ir board to cem ard drive Бери) 
Б 


WANTED: Software for Torch 280 addon 


Tr BBC В prs Ric Weer, 
pd 


WANTED: Acom Teletext ad Ce 
А and Acer 

NEU Sed for eoch Ta aski 

or 821076. 


Structural Design 
Programs 
For engineers and educational establishments 


lo solve practical design problems on the BBC 
BS Maser, 


Tiles include hydraulic RAM, bolt oun, 


О salon рори 
уроп, catenary, case combinations and 
а 


may be run interactively or with 


ара daa edied under view. 
system also for the Z88. 


For. send s.a.e. 10: 
Frami (SDCS), 58 Charlotte 
Road, London EC2A 3QT 


Archimedes 420/1, 40Mb IDE drive АМЬ RAM, 
‘colour monitor, over £1,000 software, magazines 


їс: Ner: 
=o 


ВВС powerusers: ВВС B issue 7 fitted with 1770 
disc controler, DPS & ADES and ATPL Sideways 
ROM board Basic, Forth, Pascal, Logo, 
View, Viewstore, Commstar, Disc Doctor and 
Printmaster ROMs plus 16Kb RAM, Microvitec 
(Cub monitor and stand, dual DS AIT disc drives, 
Viglen 20Mb Winchester drive, Acorn Data. 
Recorder, Pace N made AMX mouse + 


S anam ЕЧ 
[pese M 

№532016 Саг AM raded 
Ness co procesor upgraded t 
Na «al ongral stare Torch шет 
system ed wth cara Sok RAN. Ber HRS 
Daisywhes! printer ali cables plus atonal 


con ower 
pepe (агаш каре 
AU, MU and ВЕЕВОС issues since 1983, sensible 


afe for individual йет or bargains for bundles. 
Та але 


WANTED: Watford сорго adaptor or Acorn 

Universal second processor unit, as well as 

ите Go! (either on dise ог 

Er Ws Bobrowski, Waszyntona 
‘Amal, 15274 Bialystok, POLAND. 


Master 512 User Guide and Master S12 Technical 
Guide (£15 for both). Write to; Miroslaw 
Bobrowski, Waszyntona А md, 15274 
Bialystok, POLA 


‘Acorn A3000 2Mb RAM RISC OS 3, Acorn 
colour monitor with stand and software, 
Learning Curve £475, Watford hand scanner 
(meno), Impression £100, Revelation П £40, 
Artisan CN, Programmer's Reference Manuals 
(052) £25, BBC Basic Guide £10, Archimedes 
Operating System £7, Archimedes Awsembley 

ge О, Wimp Pr хокат for AL 
т 3 elo. WII sel separately. Tel 


WANTED: New to the 'B: No ils not dead! - 
BEEBUG тар, dic based educational software, 
games aue pie Before i al pe 

anything cap than thrown vy 
devel Ibu ite to contol Lego ol 
modes any interface instructions please, abo any 
"Ret Bow gear. Та (994) 2220, 


Music software; Music Master with microphone 
et 2S die hoa: Mipad eae 
‘Tutor wit Ensemble, Duet and Classroom 
network packs (51525: discs, handbooks and 
cassettes), Micro maestro with 525 disc and 6 
cassettes, ай for £28 including postage (worth 
£179) Те (0056) 208 


Can anyone lend or sell me a copy of Interbase 
and/or Interchart manuals? Also help with 
Ше would be apreciated. Tel (738) 


BBC B with dual 40/807 disc drive, Centronie 
CLP pner colour monitor, manuals £8 Td. 


Little used BBC B, ROM Box, Wordwise, other. 
Feet Dis ae 
Е 
irm S aman Pri 


PMS Publisher - ROM with 5 dises, includes 8 
fonts £20 (cost £3), Printwie -40/8IT disc £10, 
Pise Perfect DTP - 4 discs £10, Studio 8 -40/80T 
disc 65, Structured Basic (National Extension 
Coles) £5, Creative Сармо £5, Com 

ier Guide inc disc £5, Programmers 
“Trouble Shooting Cuide £3 all prices include 
postage. Tei (0252) 710219. 


WANTED: DES 177 chip for BBC B, purchase 
or loan of Welcome Cuide for BBC Master 
Compact and similarly for View and Viewsheet 
рий Та. 607 
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BEEBUG's FUTURE 

The main reason for this letter is to express 
my profound sorrow that BEEBUG's days 
appear to be numbered. I am sure that all 
your other subscribers must be equally 
horrified. All hobbyists need a forum, and 
surely 8-bit users must regard their vice as a 
hobby. I enjoy Meccano modelling - a 
youthful ambition at last realised - but I need 
meetings and exhibitions to show off my 
work and learn from my peers. And so it is 
with our 8-bit Beebs. You are our last forum. 
Acorn User gave up on us some time ago. If 
you give us up, where can we turn? 


POSTBAG 


So what is the problem? Is it circulation, 
material, or money? I suppose they are all 
inter-related. I can understand that 
circulation will fall as more people upgrade 
to 32-bit machines, but according to Acorn 
User six months ago, there are still hundreds 
of thousands of Beebs and masters in use. 
There must be thousands of users out there 
who would gladly subscribe if they knew of 
your existence. Would more publicity help? 


Is it material? You are still running some 
fascinating series and lone articles, and have 
reproduced some excellent articles and games 
from years gone by. Personally, 1 would be 
more than happy if you were to start at Vol.1 
and work right through the last ten years all 
over again. I might find time to read it all, 
and what a treasury I would learn! 


1 expect it all comes down to money. Well 
there are several things you could do. You are 
cutting the size down by several pages. Cut it 
down some more. Or cut the issues down to 
five or six a year. Or cut down the actual 
physical quality of BB. In the early days the 
paper was poor, the printing was poor, and 
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there was no colour. Go back to cheaper 
production. I don't know how much you pay 
regular contributors, but do they really want 
payment? I would find the mere fact of 
publication sufficient reward. I can think of 
one contributor of excellent stimulating 
articles, whom I now write to personally, who 
Тат sure gets more satisfaction from the 
publicity than from the cheque I presume you 
send him. 


You would have to keep on charging the 
same subscription of course. Why don't you 
sound out subscribers and find out what they 
would stand for? I would gladly go on 
paying the same for a reduced service in 
order to keep the forum alive. Other 
suggestions are to charge more for the same 
service, issue a small monthly news-sheet, or 
give us a few pages in RISC User, which we 
would subscribe to instead. 


BEEBUG is a terrific publication, and we 
don't want to lose it. We need that forum. 
Arthur Adams 


We have devoted all of this month's Postbag to 
Mr. Adams letter. It is by no means the only letter 
which we have received on this subject, but 
perhaps best encapsulates many of the comments 
made by other readers. We would also like to 
encourage further comment on this issue, and on 
possible suggestions for the future. 


In the event that we do cease publication of 
ВЕЕВИС, one possibility might be for a group of 
active and enthusiastic readers to continue as a 
User Group, publishing some form of magazine or 
newsletter to take over from BEEBUG. We would 
provide initial help and encouragement, and 
hopefully maintain an excellent relationship 
between this new group and ourselves. 
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insert 


тив month's programs, n the first of 
n series, provide means to design 
iata which has been 


jonnaire and to enter 
ог subsequent analysis: 


Following previous 
programs for venting Word Search puzzles, this 
Program wil hotp YOu Vo solve Word Searches 


whatever the source. 
This 


в папа tor Basic Prog immers. 

Tistings to be present ке structured and 

readable formats 
changes with this 


есе solutions, Pra кез to continue 
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Word Square Solver 
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Special BEEBUG Members Offer 


As you may be aware Acorn has announced the demise of the BBC Master 128, additionally we have mentioned 
that ВЕЕВИС magazine is unlikely to continue beyond its twelfth year (April 1994). As such it will become 
increasingly less cost effective to maintain Acorn's 8-bit computers, and the availability of new software and. 
hardware will almost certainly be reduced to virtually zero. In recognition of this problem BEEBUG are urging 
you seriously to consider upgrading to one of Acorn's latest RISC computers. For many people this can be à 
daunting prospect. To help with converting systems we are making various offers aimed at simplifying the 


transfer of software from your BBC. Our Special Offer falls into five parts. 


* A3010 


Code 01729 RRP £424.68 
Offer Price £378 SAVE £46 
Features: ARM 250 processor, 
mouse, stereo sound, 2Mb 
(unformatted) floppy drive, 1Mb 
RAM (upgradable to 4Mb RAM), 
mini-expansion slot, serial and 
parallel interfaces, TV modulator and 
The Family Solution software pack. 
Comes complete with EasiWord word 
processor and Quest for Gold game. 


* A3010 Learning Curve 


Code 01739 RRP £680 

Offer Price £606 SAVE £74 
Features: In addition to the items in 
the Family Solution package, the 
Learning Curve includes 2Mb RAM, 
colour monitor, PC Emulator and the 
Genesis Collection (useful in 
education), 


SERIAL LINK SOFTWARE 
TO EASE TRANSFER OF 
YOUR FILES 
So as to cause you as little upheaval 
as possible when changing your 

system we are offering you 
Ivoryash's Serial Link and lead for 
only £25. 


SOFTWARE OFFER 

So that you may continue to use the 
software to which you are largely 
used, we are making a special offer 
on the following software packages 
to run under the BBC emulator on 
your new Acorn computer - 

Wordwise £20, Interword £20, 

View £32, Masterfile | £5, 

Intersheet £25. 


* A4000 Home Office 


Code 02099 RRP £999 
Offer Price £890 SAVE £109 


Features: Separate PC style keyboard, 


ARM 250 processor, 2Mb RAM 
(upgradable to 4Mb RAM), 80Mb 
hard drive, colour monitor, 2Mb 
unformatted floppy drive, serial and 
parallel interfaces and one mini- 
expansion slot and network interface 
slot. Software includes Easiwriter 
wordprocessor and Desktop Database. 


FANTASTIC OFFERS ON NEW ACORN COMPUTERS 


= А5000 4Mb HD162 


Code 02069 RRP £1599 
Offer Price £1409 SAVE £190 
Features: ARM 3 processor, separate 
PC style keyboard, mouse, 4 slot 
backplane for expansion cards, 2МЬ 
unformatted floppy drive, 4Mb RAM, 
162Mb hard drive and multi-scan 
monitor. 


= A5000 Learning Curve 
Code 03609 RRP £1445.96 
Offer Price 51275 SAVE £170 
As above but with only 2Mb RAM 
and 80Mb hard drive, together with 
a great collection of software. 
including PC Emulator, 

1st Word Plus 

wordprocessor, 

Acorn DTP, 

Genesis Plus 

and Pacmania Game. 


FREE RISC USER 
SUBSCRIPTION OFFER 

(when you purchase one of the above 
computers) 
We will supply you with a subscription 
to RISC User magazine to run con- 
currently with your copies of BEEBUG 
until April 1994, whether or not your 
subscription ends before that date. 


TRADE IN YOUR EXISTING EQUIPMENT FOR A 
NEW SYSTEM 

You may prefer to keep your BBC and sell it privately (don't forget that 
members may place free ads in BEEBUG magazine). Should you wish us to 
take it in part exchange we are currently able to offer the following prices: 

BBCissue7 £30 BBC Issue 7 with DFS 470 

Master 128 £100 Microvitec monitor £40 
Trade in offers can be applied up 10 two months after purchase of your new 
equipment. Trade in prices INCLUDE VAT, all others are ex. VAT. 


